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PACE 1 


L, abstract 


the PDP-15 extended memory test checks for correct operation 
OF the system when operating with Extended memory, the 

PROGRAM CAN TEST A SYSTEM WITH A MAXIMUM CONFIGURATION 
OF 32K OF CORE STORAGE, FOR EACH FIEUO/PAGE (4K) OF STORAGE 
IN the SYSTEM THE PROGRAM CHECKS FOR CORRECT OPERATION OF 
key INSTRUCTIONS! AND FOR CORRECT OPERATION OF THE 

interrupt system. API system, and auto»inoex feature, 
requirements 


M equipment 

A. standard PDP»15 WITH AT LEAST 8k OF CORE STORAGE. 

R. PROGRAM LOAD DEVICE {ASR33/35 TELETYPE OR HIGH SPEED 
READER). 

C. THE P0P«15 TELETYPE MUST BE OPERATIONAL AS IT IS REQUIRED 

for program typeouts. 

!.2 STORAGE 


THE program uses LOCATIONS 8000 THROUGH 5324. 
',3 preliminary programs 


ALL PROGRAMS REQUIRED TO INSURE CORRECT OPERATION OF 
THE BASIC PROCESSOR MUST HAVE BEEN RUN SUCCESSFULLY. 

loading PROCEDURE 

A. LOAD THE OBJECT fApE IN THE TELETYPE READER, OR IN 
THE HIGH SPEED READER IF THE SYSTEM HAS SUCH READER, 

B. SET ADDRESS SWITCHES TO 17700, 

C. SET BANK SWITCH TO ON POSITION, 

D. PRESS "RESET” 

E. PRESS "READ IN" 

F. THE PROGRAM WILL LOAD AND HALT WITH AC*777777 IF 
PROGRAM loaded CORRECTlY, IF PROGRAM HALTS WITH AC«0, 
A CHECKSUM ERROR HAS OCCURRED, REPEAT THE LOADING 
PROCEDURE, 




USE PROCEDURE 


THE PROGRAM IS MADE uP OF INDIVIDUAL TEST ROUTINES 

numbered from 0e through u? (octal) • these tests 
are run through SEQUENTIALLY! EACH TEST IS REPEATED 4096 
fIMES BEFORE THE PROGRAM PROCEEDS TO EXECUTE THE FOLLOWING 
test ROUTINE, 

THE SUCCESSFUL EXECUTION OF THE SET OF ROUTINES IN ThE 
PROGRAM CONSTITUTES A PROGRAM PASS, COMPLETION OF A PROGRAM 
PASS IS INDICATED BY A SINGLE RING OF ThE TELETYPE BELL, 

THE PROGRAM iS CONTINUOUS RUNNING, THAT IS# AT THE 
COMPLETION OF A PROGRAM PASS THE PROGRAM REPEATS ITSELF, 

until stopped by the user, 

REFER to SECTION 9,3, TEST ROUTINES DESCRIPTION, FOR THE 

numbers and descriptions of the TESTS ThAT make up The 

PROGRAM, 

THE USER MAY CONTROL EXECUTION OF THE PROGRAM WITH ThE 
AC SWITCHES (ACS) AT ANY TIME# AS FOLLOWS! 

ACS0S1 ROUTINE^END-HAlT, with ACSi SIT TO A t THE 

program halts AT LOCATION 00576 AFTER THE ROUTINE 
CURRENTLY BEING EXECUTED IS COMPLETED, THE 
AC displays the number of the Completed routine, 

THE PROGRAM wIlL NOT HALT IF ACSi IS SET TO A i, 

after pressing continue, the program proceeds 

TO EXECUTE THE FOLLOWING ROUTINg, THE ROUTINE^ 
END-,HALT FEATURE IS USEFUL IN FINDING OUT NOW 
FAR THE program HAS PROGRESSED# OR TO ADVANCE 
THE PROGRAM ONE ROUTINE AT A T|ME PRIOR TO 
looping on a ROUTINE, 

Acsisi lQop-on-routine, The current routine is 

repeated continuously until acs^. is turned off, 

ACSI MUST be off BEFORE THE RQUT I NE-ENO^HAL? 

OPTION (ACS0) is accepted BY THE PROGRAM, THE 

LOOF«ROUTINE option can be useful when trouble^ 
SHOOTING highly INTERMITTENT ERRORS, 

AC82sl SCOPE-LOOP, THIS OPTION CAUSES tHE ERROR TYPeOUT 
and halt feature to BE BYPASSED TO PERMIT SCoPiNG 
when a failure OCCURS, THIS OPTION SHOULD NOT BE SET 
until AFTER aN ERRQR HAS OCCURRED, WHEN THE OPTION 

IS set, the loop^on-’ROUtine opTjoN (ACSi) should also 
be set to prevent the program from ending the test 

ROUTINE AFTER 4096 TESTS HAVE BEEN PERFORMED, 

hardware errors are indicated by error printouts followed BY 
A halt, refer to section 6| ERRORS# FOR A COMPLETE 
OESCRIPTION OF ERROR REPORTING AND THE PROCEDURE TO FOLLOW 
UHBMN ERROR OCCURS. 
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4.1 starting procedure 


A. SET address SWITCHES To 002«0 

B. PRESS RESEtj PRESS START 

C. THE program types THE FOLLOWING MESSAGE AND THEN HALTS, 
MPDP^IS EXTENDED MEMORY TEST 

SET ACS 3-5 TO NUMBER OF ADDITIONAL EXTENDED MEMORY PACES 
(ONE PACE-4K). IF SYSTEM HAS API# SET ACS 6 TO A I , 

0 . SET THE AC switches ACCORDING To TYpEO INSTRUCTIONS AND PRESS 
CONTINUE, IF YOU WiSH TO BYPASS STEP C PRINTOUT, PERFORM 
STEP D, and start PROGRAM AT LOC 00203, 

*•« note •** 

SET ACS 3-5 TO THE EXACT NUMBER OF EXTENDED MEMORY PAGES, 
SETTING THE SWITCHES Tq A NUMBER LESS THAN THE ACTUAL NUMBER 
OF pages HILL NOT TEST THE SYSTEM CONCLUSIVELY, SETTING 
A larger number will CAUSE THE PROGRAM TO FAIL, 

E. THE program READS AND CHECKS THE AC SWITCHES, IF ACS 3,^5 
are set to 000 the program types the following message 
and then halts, IF ACS 3-5 ARE NOT 0 PROGRAM GOES TO 
step G, 

«ACS 3*5 INCORRECLTY SET, OR SYSTEM DOES NOT HAVE AT LEAST 
8K OF CORE, 

F. IF STEP E TYPEOUt OCCURS, SET ACS 3-5 CORRECTLY AND PRESS 
continue, STEP E WILL BE REPEATED, 

G. THE program RUNS CONTINUOUSLY UNLESS ERRORS OCCUR, AT THE 
END OF EACH PROGRAM PASS THE TELETYPE BELL RINGS ONCE, 

H. AC SWITCH OPTIONS MAY BE SET AT ANY TIME, 

CAUTjONi DO NOT SEf SCOPE-LOOP OPTION UNLESS THE LOOP- 
ROUTINE OPTION IS ALSO SET, 

the FUNCTIONS OF ThE AC SWITCHES ARE REPEATED HERE FOR 
QUICK REFERENCEi 

ACS0=1 HALT at END oF ROUTINE 

«0 DO not halt at end OF routine 

ACSlal LOOP ON routine 

■0 DO not loop on routine 

ACS2al SCOPE LOOP 

s0 NO SCOPE LOOP 

ACS3-5 SET TO NUMBER OF ADDITIONAL EXTENDED MEMORY PAGES 

ACS6»1 API IN SYSTEM 
■0 NO API IN system 
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operating procedure 


5,1 PROGRAM ANO/OR OPERATOR ACTION 

5*ltl NORHAL HAUTS AND DESCf^iPTION 

LOC 00577 common HALT, THIS HALT IS USED FOR THE ROUTINE- 

EnD^HAlT option, and AftER AN INSTRUCTION 
TYPEOUT. TO PROCEED AFTER A ROUT I NE-ENO-HALT, 
PRESS CONTJnUE, whin THE HALT OCCURS AFTER 
AN instructional MESSAGEi PERFORM THE REQUIRED 
ACTION and PRESS CONTINUE, 
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6, ERRORS 


errors detected by this program are indicated by error 
PRINTOUTSi after an error printout the program halts 
AT A COMMON error HaL’'' AT LOC 00602, 

error printouts can take one of the following forms? 

"ERROR LOC XXXXXX AC«YyYYYY TEST 0002EZ** 

OR 

"CALERR LOC XXXXXX AC*YYYYYY test 0002ZZ” 

an "ERROR” type PRINTOUT OCCURS WHEN A TEST ROUTINE DETECTS 
A predictable error for which it is testing. 

A "CALERR” type PRINTOUT OCCURS WHEN DURING A TEST ROUTINE 
A failure OCCURS WHICH CAUSES THE SYSTEM TO "CAL OUT’S 

IN BOTH PRINTOUT CASES THE PRINTOUTS HAVE THE FOLLOWING 
MEANINGS! 

LOC XXXXXX INDICATES THE ADDRESS OF A CALL tO SUBROUTINE 
"ERR" IN The case OF AN "ERROR” PRINTOUT, OR 
THE ADDRESS FROM WHERE THE PROGRAM "CALED OUT" IN 
THE CASE OF A "CALERR” PRINTOUT, 

AC»YYYYYY INDICATES THE CONTENTS OF THE AC AT THE TIME THE 
FAILURE OCCURRED, THE CONTENTS OF THE AC MAY OR 
may NOT BE MEANINGFuLi DEPENDING ON tHE TEST 
ROUTINE, 

tEST 000222 indicates THE NUMBER OF THE TEST ROUTINE BEING 
EXECUTED at THE TIME THE FAILURE OCCURREOi 

WHEN AN "ERROR” TYPE PRINTOUT OCCURS, 

A. IN the PROGRAM’S LiStlNG, REFER TO tHE LOCATION SPIClFlEO 
BY the printout, OPPOSITE THAT LOCATION THE STATEMENT 
"ERROR" OR "ERRORA" WILL BE PRINTED, IF THE "ERRORA" STATE’- 
MENT appears, IT specifies tHAT THE CONTENTS OF THE 

AC printed out are meaningful, 

B. double check that the location PRINTED IS WITHIN THE TEST 
ROUTJNC specified BY THE ”TEST 000222” PORTION OF THE 
PRINTOUT, 

C. tHE COMMENTS PORTION OF THE "ERROR” STATEMENT WILL 
CONTAIN THE DESCRIPTION FOR THE ERRqR. 

D. at the beginning OF THE TEST ROUTINE A DESCRIPTION OF 
THE TEST WILL BE PRINTED, 
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CONTtD) 

when a ’’calerR” type Printout occursi 

A. IN the program LISTING, REFER TO THE TEST ROUTINE 
referenced by the "TEST 000ZHZ” PORTION OF THE PRINTOUT, 

B. AT THE TOP OF THE TEST ROUTINE A DESCRIPTION OF THE 
TEST WILL BE PRINTED. 

C. ANALYSIS OF THE ROyTINE^ AS WELL AS STEPPING THROUGH 
THE ROUTINE IN ”SInGLE INSTRUCTION” MODE SHOULD GiVE 
CLUES AS TO HOW THE ERROR IS OCCURRING, 
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7. restrictions 


at least during initial testing or THE SYSTEM# ACS 3-5 MUST 
RE SET TO CORRESPOND WITH THE ACTUAL NUMBER OF ADDITIONAL 
EXTENDED MEMORY PAGES (1 MEMORY PAGE ■ 4K), SETTING THE 
switches To indicate a lesser number does not PROVE THE 
SYSTEM conclusively. SettInG A LARGER NyMBER WILL CAySE 
THE program to FAIL. 

THE program will NOT RUN ON A 4k SYSTEM, IT ASSUMES A 
MINIMUM OF 8K OF CORE STORAGE, 

B. MISCELLANEOUS 


3.1 EXECUTION TIMES 


THE FOLLOWING EXECUTION TIMES ARE GIVEN FOR A SINGLE 
PROGRAM PASS, ASSUMING A MEMORY CYCLE TIME OF 800 NANOSECONDS, 

8K,N0 API - 7 SECONDS 
8K AND API - 8 seconds 
12K,N0 API ^ 14 seconds 
12K and API - 15 seconds 
16K,N0 API » 24 seconds 
i6K AND API -* 26 SECONDS 
20K,NO API ^ 32 SECONDS 
20K AND API ^ 35 SECONDS 
24 k,N0 API - 42 seconds 
24K and API - 46 seconds 
28K,N0 API ^ 53 SECONDS 
28K and API ^ 56 SECONDS 
32KiN0 API - 63 SECONDS 
32K AND API ^ 67 SECONDS 
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9. descriptions 


9.1 TERM DEFINITIONS 


F1ELD0 - locations 30000 THROUGH 07777 
FiELDi - Locations 10000 through 17777 
FIELD2 - LOCATIONS 20000 THROUGH 27777 
FIEL03 - LOCATIONS 30000 THROUGH 37777 
FIEL04 - LOCATIONS 40000 THROUGH 47777 
FIELDS - LOCATIONS 50000 THROUGH 57777 
FIEL06 - LOCATIONS 60000 THROUGH 67777 
FIELD7 - LOCATIONS 70000 THROUGH 77777 

LOCF0 - LOC 08000 
LOCFl - LOC 16000 
LOCF2 - lOC 26000 
L0CF3 - LOC 36000 
L0CF4 ^ LOC 46000 
L0CF5 - LOC 56000 
L0CF6 - LOC 66000 
L0CF7 - LOC 76000 

F0LOC - LOC IN FIELD 0 TO INDIRECTLY REFERENCE LOCP0 
FILOC - LOC in field 0 TO INDIRECTLY REFERENCE LOCFl 
F2L0C - LOC IN FIELD 0 TO iNDIRECTLY REFERENCE L0CF2 
F3L0C - LOG IN FIELD 0 TO INDIRECTLY REFERENCE L0CF3 
F41.0C » LOC in field 0 TO INDIRECTLY REFERENCE L0CF4 
F5L0C - LOC in FIELD 0 TO INDIRECTLY REFERENCE L0CF5 
F6L0C « LOC IN FIELD 0 TO INDIRECTLY REFERENCE LOCP6 
F7L0C - LOC in field 0 TO INDIRECTLY REFERENCE LOCF7 
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),2 PROGRAM STATEMENTS DEFINITIONS 


THE FOLLOWING STATEMENTS APPEAR THROUGHOUT THE PROGRAM»S 
test ROUTINES! THEIR MEANING IS DESCRIBED HERE, 

error - call to AN ERRQR SUBROUTINE WHOSE PURPOSE IS To 

generate AN ERROR PRINTOUT AND HALT. THE SUBROUTINE 
RETURNS TO NE^t INSTRUCTION AFTER THE SUBROUTINE 

call. 

chain - call to chaining subroutine whose FUNCTION IS TO 

CONTROL program SEQUENCEi AND HqNOR ACS OPTIONS, IF 
ROUTINE HAS nOT BEEN COMPLETED! THE SUBROUTINE 
RETURNS TO THE NEXT INSTRUCTION AFTER SUBROUTINE 

call, 

tF2 - CALL TO subroutine WHOSE FUNCTION IS TO DETERMINE IF 
memory field 2 IS PRESENT, IF ThE FIELD IS PRESENT 
THE subroutine RETURNS TO THE NEXT INSTRUCTION AFTER 
THE subroutine CALL, IF THE FIElO IS NOT PRESENT THE 
TEST ROUTINE IS BYPASSED, 

tF3 " SAME AS TF2, BUt CHECKS FOR FIELD 3, 

fF3 - SAME AS TF2, BUt CHECKS FOR FIELD A, 

tF5 - SAME AS TF2i BUT CHECKS FOR FIELO 5, 

TF6 - SAME AS TF2! BUT CHECKS FOR FIELD 6, 

tF7 - SAME AS TF2, BUT CHECKS FOR FIELD F, 

CKAPi - CALL TO SUBROUTINE WHOSE FUNCTION IS TO DETERMINE IF 
API IS present in THE SYSTEM, IF API IS PRESENT, THE 
SUBROUTINE returns TO THE INSTRUCTION AFtER THE 
SUBROUTINE CALL, IF API IS NOT PRESENT, THE TEST 
ROUTINE IS bypassed, 

STFn - CALL TO SUBROUTINE WHOSE FUNCTION IS TOl 

A, SET EACH AVAILABLE EXTENDED MEMORY FIELD TO 0’S, 
(FIELDS 1 through 7), 

B, hero out locations 06000 through 07777 OF FIELD 0, 

C, SET location 6000 OF EACH MEMORY HELD TO ITS OWN 
NUMBER, (6000 OF FIELD 1 IS SET TO A 1, ETC,,). 

UPON completion the subroutine returns to the 
instruction following The subroutine call, 

MOVE - call to subroutine WHOSE FUNCTIONS IS TO MOVE A 

variable length word string from one area to another, 
the subroutine call format isi 

move /UMS To moving subroutine 

XXXX /INitlAL address TO MOVE ’’FROM”, 

yyyy /initial address to move ”T0”, 

riHHi /NUMBER OF WORDS TO MOVE (COMPLEMENTED) 

nSI /instruction that subroutine returns TO, 
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9.3 test routines DESCRIPTIONS 


EACH OF THE TESTS DESCRIBED BELOW IS CONDUCTED ON ONE FIELD 
AT A TiMEi IT IS IMPORTANT TO BE AWARE OF THE STATE OF THE 
OTHER MEMORY FIELDS WHEN A TEST IS BEING CONDUCTED, EXCEPT 
FOR TESTS T0 THROUGH Tfe, ThE FOLLOWING OPERATIONS ARE PER« 

formed before a test Is run, 

A. ALL EXTENDED MEMORY FIELDS ARE SET TO 0»S. 

B. LOCATIONS 06000 THROUGH 07777 OF FULD 0 ARE SET TO 0«S, 

C. LOCATIONS 06000 OF EACH MEMORY FIELD IS SET TO ITS OWN 
memory field number IE.G, LOC 06000 OF FIELD 7 IS SET 
TO 000007) ,' 

EXCEPT where specified, ALL ROUTINES RUN IN 15 MODE (INDEX" 
MODE) . 

ROUTINES T0 THROUGH T6 TEST THAT PERFORMING A DAC IN A LO" 
CATION IN AN EXTENDED FIELD DOES NOT ALTER THE CONTENTS OF 
THE equivalent LOCATION IN FIELD 0. 

ROUTINES T7 THROUGH Tl5 TEST THAT THE AlL I’S DATA STORED 

IN AN extended FIELD Can B| fetched back correctly, if the 

DATA IS NOT ALL I'S, THEN THE NUMBER IN THE AC INDICATES THE 

number of the field that was incorrectly addressed, 

ROUTINES T16 THROUGH T24 TEST THAT AN XCT« OF A NOP INSTRUC" 
flON IN an extended field does not give control TO the EX" 
tENOEO FIELD, 

ROUTINES T25 THROUGH T33 TEST THAT AN XcT« OF A LAC 6000 
instruction in an extended field FETCHES DATA IN THE EX- 
TENDED FIELD and not From field 0, 

ROUTINES T34 THROUGH T42 TEST AN XCT« OF A LAC* 6001 IN- 
STRUCTION IN AN EXTEND FIELD. THE LAC* 6001 INSTRUCTION 
SHOULD reference THE EXTENDED FIELD IT IS IN TO OBTAIN 

THE indirect Pointer. 

ROUTINES T43 THROUGH TSl TEST AN XCT* OF A JMP* 6001 IN- 
STRUCTION IN AN extended FIELD, THE JMP* 6001 INSTRUCTION 
SHOULD obtain ITS INDIRECT POINTER FROM THE FIELD IT IS 
IN, and then JUMP TO FIELD 0. 
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(9,3 CONT’O) 

ROutiNES T52 Through T60 test that a jmp^ 6001 instruction 
IN an extended field Can successfully jump back to field 0, 

ROUtiNES Tdl through T67 TEST THAT A SKP INSTRUCTION OPERATES 
CORRECTLY IN AN EXTENDED FIELD, 

ROUTINES T70 THROUGH T76 TEST FOR CORRECT OPERATION OF ThE 
SAD INSTRUCTION WHEN EXECUTED IN AN EXTENDED FIELD. 

ROUTINES T77 THROUGH Tl05 TEST THAT A JmS INSTRUCTION IN 
AN extended FIELD CORRECTLY STORES PC 3-5 AT THE LOCATION JMS»CO TO. 

ROUTINES T106 THROUGH T114 TEST THAT A CAL* INSTRUCTION 

IN an extended FIELD REFERENCES FIELD 0, AND THAT PC BITS 3 THROUGH 

5 ARE CORRECTLY STORED AT tHE LOCATION INDIRECTLY CAlED TO, 

ROUTINES T115 THROUGH T123 TEST THAT A JMP* 10 INSTRUCTION 
IN an extended field references AUT0"INDEX register 10 IN 
FIELD 0* also by priming AUT0*IN0CX REG 10 TO A LOCATION 
pointing to field 0, Checks that the jump can be successfully 
completed to field 0, instead of to the extended field, 

ROUTINES T124 THROUGH T132 TEST THAT AN INTERRUPT CAN TAKE 
PLACE FROM AN EXTENDED FIELD, AND THAT pC BITS 3 THROUGH 5 

are correctly stored In loc 0 OF field 0, 

ROUTINES T133 THROUGH tl41 TEST IN 9 MODE, THAT WHEN PER- 
FORMING an xct« of a Lac instruction in an extended field, 
tHE lac instruction REFERENCES THE EXTENDED FIELD IT IS IN, 

AND NOT field 0. 

ROUTINES T142 THROUGH T150 TEST IN 9 MODE, THAT WHEN 
performing AN XCT* OF A JMP* IN AN EXTENDED FIELD# THE 
jMP« INSTRUCTION GETS ITS INDIRECT POINTER FROM THE EXs* 

TENDED FIELD It IS IN, AND NOT FROM FIELD 0, 

ROUTINE T151, 9 MODE, TESTS THAT DATA IN FIELD 1 CAN BE 

directly accessed from field 0, 

ROUTINE T152, 9 MODE, TESTS THAT DATA IN FIELD 0 CAN BE 
DIRECTLY ACCESSED FROM FIELD 1, 
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9,3 CONT’O) 

routine Ti53, 9 MODE, TESTS THAT DATA JN FIELD 3 CAN BE 

directly accessed from field 2, 

ROUTINE T154, 9 MODE, TESTS THAT DATA IN FIELD 2 CAN BE 
directly accessed from field 3, 

ROUtiNI tl55. 9 MODE, TESTS THAT DATA IN FIELD 9 CAN BE 
directly accessed from field 4, 

ROUTINE tl56. 9 MODE, tESTS THAt DATA IN FIELD 4 CAN BC 
directly ACCESSED FROM FIELD 9, 

ROUtiNE ti97, 9 MODE, TESTS THAT DATA IN FIELD 7 CAN BR 

directly accessed from field 6, 

ROUtiNE T1S0, 9 MODE, TESTS THAT DATA IN FIELD 6 CAN B| 

directly accessed from field 7, 

ROUTINES TiSt THROUGH T167 ARE OPTIONAL TESTS FOR SYSTEMS 
WITH API, the API break IS GENERATED By A SOFTWARE BREAK 
THAT breaks to LOC40 Of FIELD 0, THE ROUTINES TEST tHAT 

an API break Can take place from an extended FIELOi and that 
PC bits 3 THROUGH 9 ARE CORRECTLY STORED AT THE LOCATION 
JMSIO TO FR6M LOC 40, 
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EXM15 


006000 

/PnP-15 extended 
/ 

/copyright I 970 , 
/ 

. A0S 

LOC=6000 

006000 

LOCF 0 =LOC 

016000 

LOCEi=LOC+l 0000 

026000 

LOCF2=LOC+20000 

036000 

LOCF3=LOC+30000 

046000 

LOCE4=LOC+40000 

056000 

LOCF‘5 = LOC*50000 

066000 

LOCF6=LOC+60000 

076000 

LOCF7=LOC+70000 

000001 

Ll = l 

010001 

LiF 1=10001 

020001 

LiF 2=20001 

030001 

LlF 3 = 30001 

040001 

LiF 4 = 40001 

050001 

LiF5=50001 

060001 

LiF6=60001 

070001 

LiF7=70001 

000000 

L0 = 0 

000000 

L0F0 = 0 

010000 

L0Fl=10000 

020000 

L0F2S20000 

020000 

L0F3=20000 

030000 

L0F4=30000 

050000 

L0F5=50000 

060000 

L0F6=60000 

070000 

L0F7=70000 

000010 

L10=10 

00001 0 

Ll 0 F 0=00010 

010010 

L10F1=10010 

020010 

L10F2=20010 

030010 

L10F3=30010 

040010 

L10F4=40010 

050010 

L10F5=50010 

060010 

L10F6=60010 

070010 

L10F7=70010 

000020 

L20 = 20 

000020 

L20F0=20 

010020 

L20F1=10020 

020020 

L 20 F 2=20020 

030020 

L20F3=30020 

040020 

L20F4=40020 

050020 

L20F5=50020 

060020 

L20F6=60020 

070020 

L20F7=70020 

000040 

L40 = 40 

000040 

L 40 F 0 = 40 

010040 

L40Fl=10040 

020040 

L40F2=20040 

030040 

L40F3=30040 

040040 

L40F4=40040 


memory test and extenoeo memory api Test 
digital equipment coRP., matnaRd, Mass. 
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EXM15 



050040 

L40F5=50040 


060040 

L40r 6-60040 


070040 

L40F7=70040 


010000 

K10K=10000 


020000 

K20K=20000 


030000 

K30K=30000 


040000 

K40K=40000 


050000 

K50K=50000 


060000 

K60K=60000 


070000 

K70K=70000 


404000 

K404^“404000 


742030 

SWA=742030 

/SWAP AC HALVES 

707762 

EPA=707762 

/ASSERT 15 mode 

707764 

ESA=707764 

/ASSERT 9 MODE 

707761 

EXBA=707761 

/SKIP IF 15 MODE 

735000 

CLX=735000 

.EJECT 

/CLEAR XR 
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EXM15 



00100 



.LOC 

00100 

006000 

F0LOC 

LOCF0 

0 0101 

016000 

riLOC 

LOCFl 

00102 

026000 

F2LOC 

LOCF2 

00103 

036000 

F3L0C 

LOCF3 

00104 

046000 

F4L0C 

L0CF4 

00105 

056000 

F5L0C 

L0CF5 

00106 

066000 

F6L0C 

L0CF6 

00107 

076000 

F7LOC 

LOCF7 

001 10 

010001 

ElLl 

LlFl 

00111 

020001 

F2L1 

L1F2 

00112 

030001 

F3Ll 

L1F3 

00113 

040001 

F4L1 

L1F4 

00114 

050001 

F5Li 

L1F5 

00115 

060001 

F6Ll 

LlF6 

00116 

070001 

F7Li 

L1F7 

00117 

000000 

F0L0 

L0F0 

00120 

010000 

FlL0 

L0F1 

00121 

020000 

F2L0 

L0F2 

00122 

020000 

F3L0 

L0F3 

00123 

030000 

F4L0 

L0F4 

00124 

050000 

F5L0 

L0F5 

00125 

060000 

F6L0 

L0F6 

00126 

070000 

F7L0 

L0F7 

00127 

000010 

F0L10 

L10F0 

00130 

010010 

F1L10 

L10F1 

00131 

020010 

F2L10 

L10F2 

00132 

030010 

F3L10 

L10F3 

00133 

040010 

F4L10 

L10F4 

00134 

050010 

F5L10 

L10F5 

00135 

060010 

F6L10 

L10F6 

00136 

070010 

F7L10 

L10F7 

00137 

000020 

F0L20 

L20F0 

00140 

010020 

F1L20 

L20F1 

00141 

020020 

F2L20 

L20F2 

00142 

030020 

F3L20 

L20F3 

00143 

040020 

F4L20 

L20F4 

00144 

050020 

F5L20 

L20F5 

00145 

060020 

F6L20 

L20F6 

00146 

070020 

F7L20 

L20F7 

00147 

001162 

KSTART 

T0 

00150 

000000 

nxtst 

0 

00151 

000000 

CURTST 

0 

00152 

000000 

TEMP 

0 

00153 

000000 

CTRA 

0 

00154 

000000 

ctrb 

0 

00155 

000000 

EAC 

0 

00156 

000000 

ELOC 

0 


.EJECT 


10P 



A 

EXM15 





00I77 



.LOG 

177 


00177 

000000 

RTNNO 

0 



00200 

100657 


TYPE 


/TYPE Title and 

00201 

001101 


P0MsG 


/ instruct 1 o^is 

00202 

100576 


JMS 

chlt 

/halt 

00203 

750004 

start 

las 


/CHECK That CPU HAS MORE 

00204 

505215 


and 

( K70K 

/Than 4K memory. 

00205 

740200 


S2a 


/MORE Than 4K? 

00206 

600213 


JMP 

GETRnY 

/YES . 

00207 

100657 


type 


/NO. type error message. 

00210 

001050 


HEMERR 



00211 

100576 


JMS 

ghlt 

/halt . 

00212 

600203 


JMp 

start 


00213 

200147 

getroy 

Lac 

KSTaRT 

/GET 1 ST RTN address 

00214 

040150 


OAC 

NXTST 

/STORE AT NXTST 

002I5 

100254 


JMS 

FORWo 

/GO Set up for next test 

00216 

100301 


seta 


/SET CTRa to 

00217 

770000 


770000 


/-4096 

00220 

707762 


EPA 


/ASSERT 15 MODE 

00221 

735000 


CLX 


/clear xr 

00222 

620151 


JM-P* 

CURTST 

/GO TO NEXT TEST. 

00223 

000000 

CHA INN 

0 



00224 

700002 


I or 



00225 

707762 


EPA 


/ASSERT 15 MODE 

00226 

205216 


LAC 

(JMP CALERR 


00227 

040021 


DAC 

21 


00230 

140020 


D2M 

20 


00231 

140000 


DZM 

0 


00232 

750004 


LAS 


/READ ACS 

00233 

740010 


RAL 



00234 

741100 


SPA 


/LOOP ON ROUTINE?(ACSi) 

00235 

620223 


JMP* 

CHA INN 

/YES. 

00236 

440I53 


IS2 

ctra 

/DONE N TIMES? 

00237 

620223 


JMP* 

CHaINN 

/no.rePeaT Test. 

00240 

750004 

CHA I mA 

LAs 


/read ACS 

00241 

740100 


SMA 


/halt at end of TEST7(AC50) 

00242 

600245 


JMP 

. +3 

/NO . 

00243 

200177 


LAC 

RTNNO 

/YES. GET TEST NUMBER. 

00244 

100576 


JMS 

CHLT 

/halt, test number in AC. 

00245 

200150 


LAC 

NXTST 


00246 

345217 


Tad 

( 1 


00247 

750200 


SZA :cla 


/last test? 

00250 

600215 


JMP 

GETRDY+2 

/NO. PROCEED TO NExT 

00251 

205220 


LAC 

(207 

/GET bell CODE 

00252 

100567 


JMS 

TTOUT 

/RING teletype bell 

00253 

600213 


JMP 

getrdy 

/start over. 

00254 

000000 

FORWO 

0 



00255 

220150 


lac* 

NXTST 

/GET next test NUmRER. 

00256 

040177 


DAC 

RTNNO 

/STORE AT RTNNO. 

00257 

440150 


IS? 

NXTST 


00260 

200150 


lac 

NXTST 

/GET CURRENT TEST NUMBER 

00261 

040152 


DAC 

TEMP 

/STORE AT TEMP 

00262 

440150 


IS? 

NXTST 


00263 

200150 


Lac 

NXTST 

/GET CURRENT TEST ADDRESS, 

00264 

040151 


DAC 

CURTST 
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00265 

220152 


LAC* 

TEMP 


00266 

040150 


OAC 

nxtst 

/SET NEXT Test address. 

00267 

620254 


JMP* 

rORWD 

/EXIT. 



/Subroutine to 

set a location 

TO specified value. 

00270 

000000 

STCTR 

0 



00271 

220270 


LAC* 

STcTR 

/GET LOC ADOR AND 

00272 

040152 


DAC 

TEMP 

/SAVE AT temp. 

00273 

440270 


IS2 

STCTR 


00274 

220270 


LAC* 

stctr 

/GET VALUE AND STORE 

00275 

060 I 52 


OAC* 

TEMP 

/at desired location 

00276 

440270 


IS2 

stctr 


00277 

754000 


CLAICLL 


/clear AC, link 

00300 

620270 


JMP* 

STCTR 

/EXIT. 


100270 

setloc=jms stctr 




/SUBROUTINE TO 

set CTRa to SPECIFIED VaLUE. 

00301 

000000 

STCTA 

0 



00302 

220301 


Lac* 

stcta 

/GET desired Value. 

00303 

040307 


OAC 

. ♦4 


00304 

440301 


IS2 

stcta 

/SET up to exit. 

00305 

100270 


SETLOC 


/CALL ON STCTR TO 

00306 

000153 


CTRA 


/SET CTRA TO 

00307 

000000 


0 


/THIS Value (variable). 

00310 

620301 


JMP* 

stcta 

/EXIT 


100301 

seta = 

JMS STCTA 





/subroutine to 

move Variable 

length fields 

00311 

000000 

MOVVE 

0 



0031? 

220311 


LAC* 

MOVVE 

/GET and store ’‘FROM” 

00313 

040333 


OAC 

faodr 

/address 

00314 

440311 


IS2 

MOVVE 


00315 

220311 


LAC* 

MOVVE 

/GET and STORE "TO” 

00316 

040334 


OAC 

tador 

/address. 

00317 

440311 


IS2 

MOVVE 


00320 

220311 


lac* 

MOVVE 

/GET and store "MOVE COUNT 

00321 

040335 


OAC 

mctr 


00322 

440311 


IS2 

MOVVE 


00323 

220333 

MOVEA 

LAC* 

FAODR 

/GET "FROM" WORD 

00324 

060334 


OAC* 

tador 

/STORE AT "TO" LOCATION 

00325 

440333 


ISZ 

faqdr 

/update "TO"ANd "FROM" 

00326 

440334 


ISZ 

TADOR 

/addresses. 

00327 

440335 


IS 2 

MCTR 

/DONE MOVING? 

00330 

600323 


JMP 

MOVEA 

/NO. GO MOVE another WORD. 

00331 

754000 


CLA!CLL 



00332 

620311 


JMP* 

MOVVE 

/yes. DONE. EXIT. 

00333 

000000 

FAqdR 

0 



00334 

000000 

TADDR 

0 



00335 

000000 

mctr 

0 




100311 

MOVE = 

JMS 

MOVVE 
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00336 

000000 

sbfnum 

0 


/SUB TO set field 

numbers 

00337 

100474 


JMS 

TSTF7 

/FIELD 7? 


00340 

600354 


sJMP 

STf7 

/YES. 


00341 

100467 


JMS 

TSTF6 

/FIELD 6? 


00342 

600363 


JMP 

STF6 

/YES. 


00343 

100462 


JMS 

TSTF5 

/NiO. FIELD 5? 


00344 

600372 


JMP 

STF5 

/YES. 


00345 

100455 


JMS 

TSTF4 

/NO. field 4? 


00346 

600401 


JMP 

STf4 

/yes . 


00347 

100450 


JMs 

TSTF3 

/NO. field 3? 


00350 

600410 


JMP 

STF3 

/YES. 


00351 

100443 


JMS 

TSTF2 

/NO. FIELD 2? 


00352 

600417 


JMP 

STF2 

/YES. 


00353 

600426 


JMP 

STfI 

/NO. GO set field 

1 . 

00354 

165215 

STF7 

OEM* 

(L0F7 

/EEro OUT F iElO 7 


00355 

100311 


MOVE 




00356 

070000 


L0F7 




00357 

070001 


L0F7+1 




00360 

770001 


-7777 




00361 

205221 


lac 

( 7 

/7 TO LOCF7 


00362 

060107 


DAC* 

F7L0C 



00363 

165222 

STr6 

D2M* 

( L0F6 

/EERO OUT FIELD 6 


00364 

100311 


MOVE 




00365 

060000 


L0F6 




00366 

06000 1 


L0F6+1 




00367 

770001 


-7777 




00370 

205223 


lac 

(6 

/6 TO L0CF6 


00371 

060106 


DAC* 

F6L0C 



00372 

165224 

sirs 

02M* 

(L0F5 

/EERO OUT field 5 


00373 

100311 


MOVE 




00374 

050000 


L0F5 




00375 

050001 


L0F5+1 




00376 

770001 


-7777 




00377 

205225 


lac 

(5 

/5 TO L0CF5 


00400 

060105 


DAC* 

F5L0C 



00401 

165226 

STF4 

DZM* 

(L0F4 

/EERO OUT FIELD 4 


00402 

100311 


MOVE 




00403 

030000 


L0F4 




00404 

030001 


L0F4+1 




00405 

770001 


-7777 




00406 

205227 


lac 

( 4 

/4 TO L0CF4 


00407 

060104 


DAC* 

F4L0C 



00410 

165230 

STF3 

DEM« 

(L0F3 

/EERO OUT field 3 


00411 

100311 


MOVE 




00412 

020000 


L0F3 




00413 

020001 


L0F3+1 




00414 

770001 


-7777 




00415 

205231 


lac 

( 3 

/3 TO L0CF3 


00416 

060103 


DAC* 

F3L0C 



00417 

165230 

STF2 

D2M* 

(L0F2 

/EERO OUT field 2 


00420 

100311 


MOVE 




00421 

020000 


L0F2 




00422 

020001 


L 0F2-t-l 




00423 

770001 


-7777 




00424 

205232 


lac 

(2 

/2 TO LOCF2 




PAGE 


7 EXM15 


00425 

060102 


DAC« 

r2LOC 


00426 

165233 

STEi 


(LPFl 

/EERO OUT field 

00427 

10031 1 


MOVE 



00430 

010000 


L0F1 



00431 

010001 


L0F1+1 



0043? 

770001 


-7777 



00433 

20521 7 


lac 

( 1 

/I TO LOCFl 

00434 

060101 


DAC« 

FiLOC 


00435 

146000 


DEM 

LOCF0 

/EERO TO LOCF0 

00436 

100311 


MOVE 



00437 

006000 


LOCF0 



00440 

006001 


LOCF0+1 



00 4 41 

776002 


-7776+LOnF0 


00442 

620336 


JMP* 

SBFNUM 

/EXIT 

00443 

000000 

/ 

TSTF2 

0 



00444 

100501 


JMS 

TSTFX 

/field 2? 

00445 

020000 


20000 



00446 

440443 


ISE 

TSTF2 

/NO. 

00447 

620443 


Jmp* 

TSTF2 

/yes. 

00450 

000000 

TSTr3 

0 



00451 

100501 


JMS 

TSTFX 

/FIELD 3? 

00452 

030000 


30000 



00453 

440450 


ISE 

TSTf3 

/NO. 

00454 

620450 


Jmp* 

TSTF3 

/YES. 

00455 

000000 

TSTF4 

0 



00456 

100501 


JMS 

tstfx 

/FIELD 4? 

00457 

040000 


40000 



00460 

440455 


ISE 

TSTF4 

/NO. 

00461 

620455 


jmp* 

TSTF4 

/YES . 

00462 

000000 

TSTF5 

0 



00463 

100501 


JMS 

TSTFX 

/FIELD 5? 

00464 

050000 


50000 



00465 

440462 


ISE 

TSTF5 

/NO. 

00466 

620462 


Jmp* 

TSTF5 

/YEs. 

00467 

000000 

TSTF6 

0 



0047^ 

100501 


JMS 

TSTFX 

/FIELD 6? 

00471 

060000 


60000 



00472 

440467 


ISE 

TSTF6 

/NO. 

00473 

620467 


Jmp* 

TSTF6 

/YES. 

00474 

000000 

TSTF7 

0 



00475 

100501 


JMS 

TSTFX 

/FIELD 7? 

00476 

070000 


70000 



00477 

440474 


ISE 

TSTF7 

/NO. 

00500 

620474 


Jmp* 

TSTF7 

/YES . 

00501 

000000 

tstfx 

0 



00502 

750004 


LAS 



00503 

505215 


AND 

( 70000 


00504 

740001 


CMA 



00505 

345217 


TAD 

(1 


00506 

360501 


TAO« 

TSTFX 


00507 

440501 


ISE 

TSTFX 


00510 

741300 


SPA : SNA 


/FIELD IN SYSTei 

00511 

440501 


ISE 

TSTFX 

/YES. 

00512 

620501 


JMP* 

TSTFX 

/NO. 



PAGE 8 

EXM15 






100336 

sTr\= jMS 

i Srfnum 



00813 

000000 

CF2 

0 



00514 

100443 


JMS 

TSTF2 

/Field 2 ? 

00515 

620513 


JMP» 

CF? 

/ / F, S . 

00516 

600240 


SK I P 


/NO . 

00517 

000000 

cr3 

0 



00520 

100450 


JMS 

T S T F 3 

/FIELD 3? 

00521 

620517 


JMP* 

rF3 

/YES. 

00522 

600240 


SKIP 


/NO . 

00523 

000000 

CE4 

0 



00524 

100455 


JMS 

tStF 4 

/FIELD 4? 

00528 

620523 


JMP» 

CF4 

/YES. 

00526 

600240 


SKIP 


/NO. 

00527 

000000 

CF5 

0 



00530 

100462 


JMS 

tStF5 

/FIELD 5? 

00531 

620527 


JMP« 

CF5 

/YES. 

00532 

600240 


SK I P 


/NO . 

00533 

000000 

CF6 

0 



00534 

100467 


JMS 

tStF6 

/FIELD 6? 

00535 

620533 


JMPtt 

CF6 

/YES. 

00536 

600240 


SK I P 


/NO . 

00537 

000000 

CF7 

0 



00540 

100474 


JMS 

TSTF7 

/FIELD 7? 

00541 

620537 


JMP* 

CF7 

/YES. 

00542 

600240 


SKIP 


/NO . 


100513 

TF2= JMS 

CF2 




100517 

TF3=JMs 

CF3 




100523 

TF4= JMS 

CF4 




100527 

Tr5=JMS 

CF5 




100533 

Tr6=JMS 

CF6 




100537 

TF7= JMS 

CF7 



00543 

000000 

CAPI 

0 



005 4 4 

750004 


LAS 


/READ ACS 

00545 

505234 


AND 

( 4000 


00546 

751200 


SNA ; C L A 


/API PRESENT? 

00547 

600240 


SK I P 


/NO 

00550 

703304 


DBK 



00551 

140040 


D^M 

40 

/SET LOCATIONS 

00552 

100311 


MOVE 


/40 Through 77 

00553 

000040 


40 


/TO all 0‘S 

00554 

00004 1 


41 



00555 

777741 


-37 



00556 

620543 


JMP* 

CAPI 

/EXIT 


100543 

CKAPIsJMs CAPI 



00557 

000000 

STFLG 

0 


/SUB TO set teleprinter FLAG 

00560 

700401 


TSF 


/FLAG Set? 

00561 

741000 


SKP 


/NO . 

00562 

620557 


JMP* 

STFLG 

/YES. EXIT 

00563 

700406 


tls 


/start printer 

00564 

700401 


TSF 


/WA I T For Flag . 

00565 

600564 


JMP 

. -1 


00566 

620557 


JMP» 

STFLG 

/EXIT. 

00567 

000000 

TTOUT 

0 



00570 

700406 


TLS 


/PRINT CHAR 
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00571 

700401 


TSF 


/WAIT FOR FLAG. 

0057? 

600571 


JMP 

. -1 


00573 

700402 


TCF 


/CLEAR Flag. 

00574 

750000 


CLA 


/CLEAR AC 

00575 

620567 


JMPtt 

TTOUT 

/EXIT 

00576 

000000 

CHLT 

0 


/COMMAND halt 

00577 

7 40040 


HIT 



00600 

620576 


JMP* 

CHLT 


00601 

000000 

CEHLT 

0 



0060? 

740040 


HLT 


/COMMON error halt 

00603 

620601 


JMP» 

CEHLT 

/EXIT 

00604 

000000 

ERR 

0 



00605 

040155 


OAC 

EAC 

/SAVE AC 

00606 

200604 


Lac 

err 

/SAVE ERROR CALL LOCATION 

00607 

040156 


OAC 

ELOC 


00610 

100651 


JMS 

CSCOP 

/SCOPE LOOP? 

00611 

620604 


JMP* 

err 

/YES, EXIT 

00612 

100657 


TYPE 


/NO. type "ERROR" 

00613 

001021 


ERRMSG 



00614 

100627 


JMS 

CETYP 

/COMMON error TYPEOUT aNO HaLT 

00615 

620604 


JMP* 

ERR 

/EXIT 

006l6 

040I55 

calerr 

DAC 

EAC 

/SAVE AC 

00617 

200020 


Lac 

20 

/Save cal call location 

00620 

040156 


OAC 

ELOC 


00621 

100651 


JMS 

CSCOP 

/SCOPE LOOP? 

00622 

620151 


JMP* 

CURTST 

/YES. 

00623 

100657 


TYPE 


/NO. TYPE CALERR 

00624 

001025 


CALMSG 



00625 

100627 


JMS 

CETYP 

/COMMON error TYPEOUT aND HaLT 

00626 

620151 


JMP» 

CURTST 

/Go To start oP test 

00627 

000000 

CETYP 

0 



00630 

200156 


LAC 

ELOC 


00631 

505235 


AND 

(377777 


00632 

345236 


TAD 

(-1 


00633 

040156 


DAC 

ELOC 


00634 

100751 


JMS 

OCNV 

/convert error CALL LOCATION 

00635 

000156 


ELOC 


/TO PRINTABLE ASCI I 

00636 

001033 


ALOC 



00637 

100751 


JMS 

OCNV 

/convert AC CONTENTS TO 

00640 

000155 


EAC 


/PRINTABLE ASCII 

00641 

001040 


AACA 



00642 

100751 


JMS 

OCNV 

/CONVERT TEST NUMBER TO 

00643 

000177 


rtnno 


/PRINTABLE ASCII 

00644 

001045 


ARTN 



00645 

100657 


TYPE 


/TYPE COMMON ERROR MESSAGE 

00646 

001031 


CEMSG 



00647 

100601 


JMS 

CEHLT 

/GO TO COMMON error HALT. 

00650 

620627 


JMP* 

CETYP 


00651 

000000 

CSCOP 

0 



00652 

750004 


LAS 


/READ ACS 

00653 

742010 


RTL 



0065 4 

740100 


SMA 


/SCOPE LOOP? 

00655 

440651 


IS2 

CSCOP 

/NO. 

00656 

620651 


JMP* 

CSCOP 

/YES. EXIT. 
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00657 

000000 

TYP 

0 



00660 

220657 


lac« 

TYP 

/GET and store string AQnRrss 

00661 

040747 


DAC 

TEMQ 


00662 

140746 


02Y 

flag 

/clear flag. 

00663 

440657 


ISZ 

TYP 

/set up exit address. 

00 66 4 

220747 

tSCi 

LAC« 

TEMQ 

/GEj data word 

00665 

742010 


RTL 



00666 

742010 


RTL 



00667 

742010 


rtl 



00 6 70 

740010 


RAL 



00671 

100703 


JMS 

TSC2 

/TYPE FIRST character 

00672 

220747 


LAC* 

TEMQ 


00673 

742020 


RTR 



0067 4 

742020 


RTR 



00675 

742020 


RTR 



00676 

100703 


JMS 

TSC2 

/TYPE 2Nn character 

00677 

220747 


LAC* 

TEMQ 


00700 

100703 


JMS 

TSC2 

/type 3Rn character 

00701 

440747 


IS7 

TEMQ 

/update data address. 

00702 

600664 


JMP 

TSCI 


00703 

000000 

TSC2 

0 



00704 

505237 


AND 

(77 

/MASK OFF EXCESS BITS 

00705 

040750 


DAC 

TEMR 


00706 

200746 


lac 

FLAG 

/SPECIAL char flag set? 

00707 

740200 


SZA 



00710 

600720 


JMP 

TYPSP 

/YES. 

00711 

200750 


LAC 

temr 

/NO. GET character 

00712 

741200 


SNA 


/IS IT 0? 

00713 

600716 


JMP 

. •*■3 

/yEs. special Character 

00714 

100727 

TyPAT 

JMS 

print 

/NO, GO print character. 

00715 

620703 


JMP« 

TSC2 

/EXIT TSC2. 

00716 

440746 


ISZ 

flag 

/GET SPECIAL CHaR FLaG. 

007i7 

620703 


JMP* 

TSC2 

/EXIT TSC2. 

00720 

140746 

TYPSP 

dZm 

flag 

/cLeAR special char eLAg. 

00721 

200750 


LAC 

TEMr 

/get character 

00722 

741200 


SNA 


/0? 

00723 

620703 


JMP<j 

TSC2 

/YES. IGNORE IT. EXIT TSC2. 

00724 

545237 


SAD 

(77 

nil 

00725 

6206^7 


JMP* 

TYP 

/YES. EXIT. TYP SUBROUTINE 

00726 

600714 


JMP 

TYPaT 

/NO. 

00727 

000000 

prInt 

0 



00730 

545240 


SAD 

( 45 

/45? 

00731 

600742 


JMP 

PR I NTB 

/YES. 

00732 

545241 


SAD 

( 43 

/NO. 43? 

00733 

600744 


JMP 

PR I NTC 

/YES. 

00734 

345242 


tad 

( -40 

/NO . 

00735 

741100 


SPA 



00736 

345243 


TAD 

(100 


00737 

345244 


TAD 

( 240 


00740 

100567 

PR I NT A 

JMs 

TTOut 

/type character 

00741 

620727 


JMPft 

PRINT 

/EXIT PRINT SUB. 

00742 

760215 

PRINTB 

LAW 

215 


00743 

600740 


JMP 

PRINTA 

/type CR 

00744 

760212 

PRINTC 

LAW 

212 


00745 

600740 


JMP 

PRINTa 

/TYPE LF 



P A C, t 11 

E X M 1 5 







100657 

TYPE= JMS 

T YP 



0 7 4 6 

000000 

EL AG 

0 




00747 

000000 

TEMQ 

0 




00750 

000000 

TEMR 

0 




00751 

000000 

OCNV 

0 



/SUr to convert contents or a word 

0075? 

220751 


LAC* 

OCNV 


/TO printable asci I 

00753 

04 I 0 I 3 


DAC 

waSC 



00754 

440751 


IS? 

OCNV 



00755 

220751 


lac* 

OCNV 



00756 

041014 


DAC 

SASC 



00757 

440751 


IS? 

OCNV 



00760 

221013 


LAC* 

WaSC 



00761 

742030 


SWA 




00762 

100767 


JMS 

CNV 



00763 

441014 


IS? 

SASC 



00764 

221013 


LAC* 

WASC 



00765 

100767 


JHS 

CNV 



00766 

620751 


JMP* 

OCNV 



00767 

000000 

CNV 

0 




00770 

041015 


OAC 

ASCT 



00771 

505221 


AND 

( 7 



0077? 

041016 


DAC 

01 



00773 

201015 


LAC 

ASCT 



00774 

742010 


RTL 




00775 

740010 


RAL 




00776 

505245 


AND 

(700 



00777 

041017 


DAC 

02 



01000 

201015 


LAC 

ASCT 



01001 

742010 


RTL 




01002 

742010 


rtl 




01003 

742010 


rtl 




01004 

505215 


AND 

( 70000 



01005 

041020 


DAC 

03 



01006 

341016 


TAD 

01 



01007 

341017 


TAD 

02 



01010 

345246 


TAD 

( 606060 



01011 

061014 


DAC* 

SASC 



01012 

620767 


JMp* 

CNV 



01013 

000000 

WASC 

0 




01014 

000000 

SASC 

0 




01015 

000000 

ASCT 

0 




01016 

000000 

01 

0 




01017 

000000 

02 

0 




01020 

000000 

03 

0 




01021 

454305 

Errmsg 

. Si XBT 

'%#ErrOr 

P? • 


01022 

222217 






01023 

224040 






01024 

400077 






01025 

454303 

CAlmSq 

. Si XRT 

' %#rALERR 



01026 

011405 






01027 

222240 






01030 

400077 






01031 

141703 

CEmSg 

. SiXBT 

'LOC ’ 



0103? 

404000 






01033 

404040 

aloc 

.SlXBT 

f 

1 
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01034 404040 

01035 404040 

01036 010375 

01037 400000 

01040 404040 

01041 404040 

01042 404040 

01043 240523 

01044 244040 

01045 404040 

01046 404040 

01047 007700 

01050 454301 

01051 032340 

01052 635565 

01053 401116 

01054 031722 

01055 220503 

01056 241431 

01057 402305 

01060 245440 

01061 172240 

01062 233123 

01063 240515 

01064 400417 

01065 052340 

01066 161724 

01067 401001 

01070 260540 

01071 012440 

01072 140501 

01073 232440 

01074 701340 

01075 170640 

01076 031722 

01077 055600 

01100 770000 

01101 454340 

01102 200420 

01103 556165 

01104 400530 

01105 240516 

01106 040504 

01107 401505 

01110 151722 

01111 314024 

01112 052324 

01113 454343 

01114 230524 

01115 400103 

01116 234063 

01117 556540 

01120 241740 

01121 162515 

01122 020522 


. SIXBT 
AACA .SIXBT 

.SIXBT 
ARTN .SIXBT 

mEmErr .SiXBT 

.SIXBT 

.SiXBT 

P0mSG .SjXBT 

.SIXBT 


• AC= ' 


♦TEST 

' * 

•%#ACS 3-5 iNf^ORRfCTLY SET. OR 


’SYSTEM DOES NOT HAVE AT LEAST ’ 


’8k Of CorE.S?’ 

PDp-15 extended mEmORY TEST' 


’%##SET ACS 3-5 TO NUmBEr oE ADDITIONAL ' 
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01123 401706 

01124 400104 

01125 041124 

01126 111716 

01127 011440 

01130 053024 .SiXPT 

01131 051604 

01132 050440 

01133 150515 

01134 172231 

01135 402001 

01136 070523 

01137 405061 

01140 402001 

01141 070540 

01142 754064 

01143 135100 

01144 454311 .SiXRT 

01145 064023 

01146 312324 

01147 051540 

01150 100123 

01151 400120 

01152 115440 

01153 230524 

01154 400103 

01155 234066 

01156 402417 

01157 400140 

01160 615600 

01161 770000 


EJECT 


'EXTENDED memory PAGES (1 PAGE = 4k)' 


'%#IE system has Apl, sET ACS 6 TO A l.P?' 
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/DAC» FlLOC (LOcr 0 s^'OuLD 

NOy 

RE MODIFIED) 

0116? 

000000 

T 0 0 




01163 

001173 

Tl 




01164 

146000 

DHM 

LOrF 0 


/0 TO LOCF 0 

01165 

205236 

LAC 

(-1 



0 ll 66 

060l0l 

DAC* 

FlLOC 


/TRY TO set LOCFl TO ALL I'S 

01167 

546000 

Sad 

LOCF^^ 


/SKIP IF LOCF0 IS not aLL I'S 

01170 

100604 

frror 



/Error. LOCE0 modified by REFERENjCE 






/TO FIELD 1 . 

01171 

100223 

CHA I N 




0117? 

601164 

JMP 

T0 + 2 


/NOT DONE, repeat TEST. 



/DAC« P 2 LOC (LOCF 0 Should 

mot 

BE modified) 

01173 

000001 

Tl 1 




01174 

001205 

T 2 




. 01175 

100513 

TF 2 



/RUN IF FIELD 2 AVaILARLF 

01176 

146000 

D2M 

LOCF 0 


/0 TO LOCF 0 

01177 

205236 

LAC 

( -1 



0 l ?00 

060102 

DAC* 

F 2 LOC 


/TRY TO SET aLL I'S IN LncF 2 

01201 

546000 

Sad 

LOCFC’ 


/SKIP IF LOCF0 NOT ALL I'S 

0120 ? 

100604 

Error 



/Error, loceo moditieo by reference 






/TO FIELD 2. 

01203 

100223 

CHAIN 




01204 

601176 

JMP 

Ti + 3 


/NOT DONE. REPEAT TEST. 



/DAC« F3L0C (LOCF 0 SHOULD 

NOT 

CHANGE) 

01205 

000002 

T 2 2 




01206 

001217 

T3 




01207 

100517 

TF3 



/RUN IF FIELD 3 AVAILABLE 

01210 

146000 

02 M 

LOCF 0 


/0 TO LOCF 0 

01211 

205236 

LAC 

(-1 



0 I 2 I 2 

060103 

DAC* 

F 3 LOC 


/TRY TO set all I'S IN LOCF 3 

01213 

546000 

Sad 

LOCF 0 


/SKIP If LOcF0 NOT aLL I'S. 

01214 

100604 

ERROR 



/ERROR. LOCF 0 CHANGED By REFERENCE 






/TO FIELD 3. 

01215 

100223 

chain 




01216 

601210 

JMP 

12^3 


/NOT DONE. REPEAT TEST. 



/DAC* F4L0C (LOCF 0 SHOULD 

NOT 

change ) 

01217 

000003 

T3 3 




01220 

001231 

T4 




01221 

100523 

TF4 



/RUN IF FIELD 4 AVAILARLF 

01222 

146000 

D2M 

LOCF 0 


/0 TO LOCF 0 

01223 

205236 

LAC 

(-1 



0 l 224 

060104 

DAC* 

F 4 LOC 


/TRY TO SET aLL I'S IN LOCF4 

01225 

546000 

Sad 

LOCFt’ 


/SKIP IF LOCF0 NOT aLL I'S. 

01226 

100604 

Error 



/ERROR. LOCF 0 changed BY rFFFrEnCE 






/TO FIELD 4. 

01227 

100223 

CHAIN 




01230 

601222 

JMP 

T 3 + 3 


/NOT DONE, repeat TEST. 



/DAC« F 5 LOC (LOCF 0 SHOULD 

NOT 

CHANGE) 

01231 

000004 

T4 4 




01232 

001243 

T5 




01233 

100527 

TF5 



/RUN IF field 5 AVAILABLE 

01234 

146000 

D2M 

LOCF0 


/0 TO LOCF 0 

01235 

205236 

LAC 

(-1 



0l?36 

060105 

DAC* 

F 5 LOC 


/TRY TO SET LOCF 5 TO ALL I’S. 

01237 

546000 

Sad 

LOCF0 


/SKIP IF LOCF0 NOT aLL I'S. 
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01PA0 

10060'’ 

error 



/error. LOCF0 changed RX REFERENCE 






/toe I ELO 5 . 

01241 

100223 

chain 




01?4? 

601234 

JMP 

T4 + 3 


/NOT done. REPEAT TEST. 



/OAC« r6L0c (LOcr0 

NOt 

CHANGE ) 

01243 

000005 

T 5 5 




01244 

001255 

T6 




01245 

100533 

TP 6 



/RUN jF RiElD 6 AVAILABLE 

01246 

146000 

DzM 

LOCF0 


/0 jO LOCF0 

01247 

205236 

LAC 

( -1 



01250 

060106 

D A C « 

F6L0C 


/TRY TO SET aLL l '? IN L0CF6 

01251 

546000 

Sao 

LOCF0 


/SKIP IE LOCE0 NOT all I'S, 

01252 

l006fi4 

error 



/error, locfo changed rt reeerence 






/TO E I ELH 6 . 

01253 

100223 

CHAIN 




01254 

601246 

JMP 

T5 + 3 


/NOT DONE. REPEAT TEST. 



/DAC* E7L0c (LOCF0 SHOULD 

NOT 

change ) 

01255 

000006 

T6 6 




01256 

001267 

T7 




01257 

100537 

TF7 



/RUN IE EIELD 7 AVAILABLE 

01260 

146000 

DZM 

LOCF0 


/0 TO LOCEW 

01261 

205236 

LAC 

( -1 



01262 

060107 

DAC* 

F7L0C 


/TRY TO set all I'S IN LncF7 

01263 

546000 

Sad 

LOCF0 


/SKIP IF LCCE0 NOT ALL I'S 

01264 

100604 

Error 



/ERROR. LOCF0 changed PYREEErEmCE 






/TO FIELD 7. 

01265 

100223 

CHAIN 




01266 

601260 

JMP 

T6 + 3 


/NOT DONE REPEAT TEST. 


.EJECT 
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/TEST LAC* FILOC 


01267 

000007 

T7 

7 


01270 

001303 


T10 


01271 

100336 


STfN 


01272 

205236 


LAC 

( -1 

01273 

060101 


DAC* 

FlLOC 

01274 

750000 


CLA 


01275 

220101 


LAC* 

FlLOC 

01276 

545236 


SAD 

( -1 

01277 

741000 


SKP 


01300 

100604 


ERRORa 



01301 

100223 


chain 


01302 

601272 


JMP 

T7>3 



/TEST 

LAC*F2L0C 


01303 

000010 

Ti0 

10 


01304 

001320 


Til 


01305 

100513 


TF2 


01306 

100336 


stfn 


01307 

205236 


LAC 

(-1 

01310 

060102 


DAC* 

F 2 LOC 

01311 

750000 


CLA 


01312 

220102 


LAC* 

F2L0C 

01313 

545236 


Sad 

(-1 

01314 

741000 


SKP 


01315 

100604 


ER R O R A 


01316 

100223 


CHAIN 


01317 

601307 


JMP 

T 10 + 4 



/TEST 

LAC* F3L0C 


01320 

000011 

Til 

11 


01321 

001335 


T12 


01322 

100517 


TF3 


01323 

100336 


stfn 


01324 

205236 


LAC 

( -1 

01325 

060103 


DAC* 

F 3 LOC 

01326 

750000 


CLA 


01327 

220103 


Lac* 

F3L0C 

01330 

545236 


SAD 

( -1 

01331 

741000 


SKP 


01332 

100604 


ERRORa 


01333 

100223 


CHAIN 


01334 

601324 


JMP 

Til + 4 



/TEST 

LAC* F4L0C 

01335 

000012 

Ti2 

12 


01336 

001352 


T13 


01337 

100523 


TF4 


01340 

100336 


stfn 


01341 

205236 


LAC 

( “1 

01342 

060104 


DAC* 

F4L0C 

01343 

750000 


CLA 


01344 

220104 


LAC* 

F4LCC 

01345 

545236 


Sad 

("1 


/set fields 


/ALL I'S TO LOCFl 
/TRY TO get C (LOCFl ) 

/SKIP IF AC not All 1 ' s 

/OK . 

/ERR. AC NOT all I’S. T)^C^ FlLOC 
/DID NOT reference FIELD 1, OR 

/Lac* filoc oin not reference field i. 
/NOT done, repeat TEST. 


/RUN IF FIELD ? AVaILAPLF 
/SET FIELDS 

/all 1*S to L0CF2 

/TRY TO get C(L0CF?) 

/SKIP IF AC NOT all I'S. 

/OK. 

/error. OAC* F?LOc» OR Lac* F2L0c 
/DID not reference FIELD 2. 

/REPEAT TEST. 


/RUN IF FIELD 3 AVAILABLE 
/SET FIELDS 

/all I'S TO L0CF3 

/TRY TO get c(L0cF3) 

/Skip i^^ ac not all I’s. 

/OK 

/ERROR, DAC* F3L0C, OR LAC« F 3 LOC 
/DID NOT REFERENCE FIELD 3. 

/NOT DONE. REPEAT TEST 


/RUN IF FIELD 4 AVAILABLE 
/SET FIELDS 

/ALL I'S TO L0CF4 

/TRY TO get C(L0CF4) 

/SKIP IF AC NOT all I’S 
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01346 

741000 


SKP 


01347 

100604 


errora 


01350 

100223 


CHAIN 


01351 

601 341 


JMP 

T12 + 4 



/TEST 

LAC* FSLOC 


01352 

000013 

Tl3 

13 


01353 

001367 


T14 


01354 

100527 


TF5 


01355 

100336 


STFN 


01356 

205236 


LAC 

( -1 

01357 

060105 


DAC* 

E5LOC 

01360 

750000 


CLA 


01361 

220105 


LAC* 

E5LOC 

01362 

545236 


SAD 

(-1 

01363 

741000 


SKP 


01364 

100604 


ERRORa 


01365 

100223 


CHAIN 


01366 

601356 


JMP 

T13 + 4 



/TEST 

LAC* F6L0C 

01367 

000014 

Tl4 

14 


01370 

001404 


T15 


01371 

100533 


TF6 


01372 

100336 


STFN 


01373 

205236 


LAC 

(-1 

01374 

060106 


DAC* 

F6L0C 

01375 

750000 


CLA 


01376 

220106 


LAC* 

F6L0C 

01377 

545236 


SAD 

(-1 

01400 

741000 


SKP 


01401 

100604 


ERRQRa 


01402 

100223 


CHAIN 


01403 

601373 


JMP 

T 1 4 + 4 



/TEST 

LAC* F7L0C 

01404 

000015 

T15 

15 


01405 

001421 


T16 


01406 

100537 


TE7 


01407 

100336 


STFN 


01410 

205236 


LAC 

( -1 

01411 

060107 


DAC* 

F7L0C 

01412 

750000 


CLA 


01413 

220107 


LAC* 

F7L0C 

01414 

545236 


SAD 

(-1 

0I4I5 

74I000 


SKP 


01416 

100604 


ERRORa 


01417 

100223 


CHAIN 


01420 

601410 


JMP 

T 15 + 4 




.EJECT 



/OK 

/error. pAc* r4L0C' OR LAc« F4L0c 
/Din NOT REFERENCE FIELD 4. 

/NOT DONE. REPEAT TEST. 


/RUN IE FIELD S aVaILaPLE 
/SET FIELDS 

/all 1*S TO LOCES 

/TRY TO GET C(LOCES) 

/SKIP IF AC NOT all I'S. 

/OK 

/error, DAC^' F5l0C' or LaC^ E5l0c 
/DID NOT REFERENCE FIELD 5, 

/NOT DONE. REPEAT TEST 


/RUN IF FIELD 6 AVAILABLE 
/SET FIELDS 

/ALL 1*S TO L0CE6 

/TRY TO get C(L0CF6) 

/SKIP IF AC NOT all 1*S 
/OK . 

/error, oac* e6loc' or Lac* f6loc 
/DID NOT reference FIELD 6. 

/NOT DONE. REPEAT TEST. 


/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 

/ALL I’S TO L0CF7 

/TRY TO GET C{L0CF7) 

/SKIP IF AC NOT' all 1 ' S 
/OK . 

/error, DAC« E7L0c» or Lac* E7L0c 
/DID NOT reference FIELD 7. 

/NOT DONE. REPEAT TEST. 
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/Test 

that XcT* 

OF NOP 

01421 

0000^6 

Tl6 

16 


01422 

001440 


T17 


01423 

100336 


stfn 


01424 

100311 


MOVE 


01425 

001435 


T16W 


01426 

016000 


LOCFl 


01427 

777775 


-3 


01430 

420101 


XCT* 

FlLOC 

01431 

100223 

Tl6A 

CHAIN 


01432 

601424 


JMP 

T 16 + 3 

01433 

100604 

Tl6B 

ERROR 



01434 

601431 


JMP 

Ti6A 

01435 

740000 

Ti6W 

NOP 


01436 

626002 


JMP« 

LOC + 2 

01437 

001433 

/test 

T168 

that XcT* 

OF NOP 

01440 

00001 7 

Tl7 

17 


01441 

001460 


T20 


01442 

100513 


TF2 


014 43 

100336 


STFN 


01444 

100311 


MOVE 


01445 

001455 


T17W 


01446 

026000 


L0CF2 


01447 

777775 


-3 


01450 

420102 


XCT* 

F2L0C 

01451 

100223 

Tl7A 

CHAIN 


01452 

601444 


JMP 

T 17 + 4 

01453 

100604 

Ti7B 

ERROR 



01454 

601451 


JMP 

T17A 

01455 

740000 

T17W 

NOP 


01456 

626002 


JMP, 

LOC + 2 

01457 

001453 

/test 

Tl7B 

that XcT* 

OF NOP 

01460 

000020 

T20 

20 


01461 

001500 


T21 


01462 

100517 


TF3 


01463 

100336 


STFN 


01464 

100311 


MOVE 


01465 

001475 


T20W 


01466 

036000 


L0CF3 


01467 

777775 


-3 


01470 

420103 


XCT* 

F3l0C 

01471 

100223 

T20A 

CHAIN 


01472 

601464 


JMP 

T20 + 4 

01473 

100604 

T20b 

error 



01474 

601471 


JMP 

T20A 

01475 

740000 

T20W 

NOP 


01476 

626002 


JMPto 

LOC + 


aT LOcFi nOES NtOT TRaNSreR cONiTROL TO FIELD l. 


/SET FIELDS 

/MOVE Test words to test area 
/IN FIELD 1. 


/XCt» of nop In LOFFi 

/NOT OONF, REPEAT TEST. 

/ERROR. PROGRAM DID NOT RETURN TO 

/TO ti6a. instead, instruction 

/AT LOCFl + 1 WAS EXFCL'TFO. 

/TEST WORDS 


aT L0cF2 DOES NOT TPaNSfeR CONTROL TO FIELD 2. 


/RUN IF FIELD ? AVAILABLE 
/SET FIELDS 

/MOVE TEST WORDS TO TEST AREA 
/IN FIELD 2. 


/XCt* OF NOP In L0CF2 

/NOT DONE. REPEAT TEST. 

/ERROR. PROGRAM DIO NOT RETURN TO 
/T17A. instead, INSTRUCTION aT 
/L0CF2+1 WAS EXECUTED. 

/TEST WORDS 


aT L0cF3 does not transfer CONTROL TO FIELD 3. 


/RUN IF FIELD 3 AVAILABLE. 
/SET FIELDS 

/TEST WORDS TO TEST AREA 
/IN FIELD 3. 


/XCT* OF NOP IF l0CF3. 

/NOT DONF. REPEAT TEST. 

/ERROR. PROGRAM DIO NOT RETURN 
/TO T20A. instead, INSTRUCTION 
/AT L0CF3+1 WAS EXECUTED. 


/TEST WORDS 
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01477 

001473 


T20B 




/TfST 

that XcT« 

OF NOP 

0 1 5 0 0 

000021 

T21 

21 


01501 

001520 


T22 


01502 

100523 


TF4 


01503 

100336 


STFN 


01504 

100311 


MOVE 


01505 

001515 


T2 iW 


01506 

046000 


L0CF4 


01507 

777775 


-3 


01510 

420104 


xct* 

F4L0C 

01511 

100223 

T21A 

CHAIN 


01512 

601504 


JMP 

T2I +4 

01513 

100604 

T21B 

error 



01514 

601511 


JMP 

T21A 

01515 

740000 

T21W 

NOP 


0l5l6 

626002 


JMP* 

LOC + 2 

01517 

001513 

/Test 

T21B 

That xct* 

OF NOP 

01520 

000022 

T22 

22 


01521 

001540 


T23 


01522 

100527 


TE5 


01523 

100336 


STFN 


01524 

100311 


MOVE 


01525 

001535 


T22W 


01526 

056000 


L0CF5 


01527 

777775 


-3 


01530 

420105 


XCT* 

E5L0C 

01531 

100223 

T22A 

CHAIN 


01532 

601524 


JMP 

T22-^4 

01533 

100604 

T22B 

ERROR 



01534 

601531 


JMP 

T22A 

01535 

740000 

T22W 

NOP 


01536 

626002 


JMP* 

L OC + 2 

01537 

001533 


T22B 




/TEST 

that XcT* 

OF NOP 

01540 

000023 

T23 

23 


01541 

001560 


T24 


01542 

100533 


TF6 


01543 

100336 


STFN 


01544 

100311 


MOVE 


01545 

001555 


T23W 


01546 

066000 


L0CF6 


01547 

777775 


-3 


01550 

420106 


XCT* 

F 6 L OC 

01551 

100223 

T23A 

CHAIN 


01552 

601544 


JMP 

T23 + 4 

01553 

100604 

T23B 

ERROR 



0155A 601551 


JMP 


T23A 


aT L0cr4 DOES NOT TRaNSfeR CONTROI TQ FIELD 4. 


/RUN IF FIELD 4 AVaILARLF 
/SET FIELDS 

/TEST WORDS TO FIELD 4 
/TEST AREA. 


/xCt» of nop In loof4 

/REPEAT TEST. 

/ERROR. PROGRAM DID RETURN TO 

/T21A. INSTEAD INSTRUCTION AT 
/L0CF4+1 WAS EXECUTED. 

/TEST WORDS 


aT LOCF 5 DOES NOT transfer CONTROL TO FIELD 5. 


/RUN IF FIELD 5 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 5 

/test area. 


/XCT* of nop In L0CF5 

/REPEAT TEST. 

/ERROR. PROGRAM DID NOT RETURN 
/TO T?2A. INSTEAD, INSTRUCTION 
/at L0CF5+1 WAS EXECUTED. 

/TEST WORDS 


AT L0CF6 DOES NOT TRaNSfeR CONTROL TO FIELD 6. 


/RUN IF FIELD 6 AVAILABLE. 
/SET FIELDS 

/TEST WORDS TO FIELD 6 
/TEST AREA 


/XCT* OF NOP In LOOE 6. 

/REPEAT TEST. 

/ERROR. PROGRAM DID NOT RETURN TO 
/T23A. INSTEAD, INSTRUCTION AT 
/L0CF6+1 WAS EXECUTED. 
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/TEST WORDS 


AT LOcr? DOES NOy jRaNSfeR rONyROL yO FIELD 7. 


/RUN IF field 7 AVAILABLE 
/SET FIELDS 

/TEST VOIDS TO FIELD 7 
/TEST AREA. 


/xCt* oP" nop InloCF7 


/ERROR. program DID NOT RETURN TO 
/T24A. instead instruction aT 

/locf7*i was executed. 

/TEST WORDS 
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/TST 

XCT* OF LAC IN LOCFl 

(DATA IN field 0> 



P)160P) 

000025 

T25 

25 





01601 

001614 


T26 





01602 

100336 


STrN 


/set fields 



01603 

205247 


LAC 

(LAC 6000 

/jESx WORD jD LOCFl 



01604 

060101 


DAC* 

FiLOC 




01605 

750000 


CLA 





01606 

420101 


XCT* 

plLOC 

/XCt* Of LAC at LOCpl 



01607 

545247 


Sad 

(Lac 6000 

/SKIP IF AC DIFFERENT 

FROM (LAC 

6000 

01610 

741000 


SKP 


/OK 



01611 

100604 


errora 


/ERROR. XCT* OF LAC AT LOCFl, 








/lac 6000 DID NOT REFERENCE FIELD 1. 


01612 

100223 


CHAIN 





01613 

601603 


JMP 

T25 + 3 

/REPEAT TEST. 





/TEST 

XcT* OF 

Lac in LOCF 2 

(DaTa IN FIELD 0) 



01614 

000026 

T26 

26 





01615 

001631 


T27 





01616 

100513 


TF2 


/RUN IF FIELD 2 AVAILABLE 



01617 

100336 


STFN 


/SET FIELDS 



01620 

205247 


LAC 

(LAC 6000 

/TEST WORD TO LOCF2. 



01621 

060102 


OAC* 

F2LOC 




01622 

750000 


CLA 





01623 

420102 


XCT* 

F2LOC 

/XCT* OF LAC AT LOCF2 



01624 

545247 


SAD 

(LAC 6000 

/SKIP IF DIFFERENT FROM (LAC 6000 

01625 

741000 


SKP 


/OK . 



01626 

100604 


errora 


/error. XCT* OF LAC AT L0CF2. 








/lac 6000 DID not reference FjFlD 2. 


01627 

100223 


CHAIN 





01630 

601620 


JMP 

T26 + 4 

/REPEAT REST. 





/TEST 

XCT« OF 

LAC N L0CF3 

(data IN field 0) 



01631 

000027 

T27 

27 





01632 

001646 


T30 





01633 

100517 


TF3 


/RUN IF FIELD 3 AVAILBLE 



01634 

100336 


STFN 


/SET FIELDS 



01635 

205247 


LAC 

(LAC 6000 

/TEST WORD TO L0CF3. 



01636 

060103 


DAC* 

F3LOC 




01637 

750000 


CLA 





01640 

420103 


XCT* 

F3L0C 

/XCT* OF LAC AT LOCf3 



01641 

545247 


SAD 

(LAC 6000 

/SKIP IF AC DIFFERENT 

FROM (LAC 

6000 

01642 

741000 


SKP 


/OK. 



01643 

100604 


errora 


/ERROR. XCT* OF LAC AT LOCF3. 








/LAC 6000 DID NOT REFERENCE FIELD 3. 


01644 

100223 


CHAIN 





01645 

601635 


JMP 

T27 + 4 

/REPEAT TEST. 





/TEST 

XCT* OF 

Lac IN LOCF 4 

(DATA IN FIELD 0). 



01646 

000030 

T30 

30 





01647 

001663 


T31 





01650 

100523 


TF4 


/RUN IF FIELD 4 AVAILABLE 



01651 

100336 


STFN 


/SET FIELDS 



01652 

205247 


LAC 

(LAC 6000 

/TEST WORD TO L0CF4 



01653 

060104 


DAC* 

F4LOC 




01654 

750000 


CLA 





01655 

420104 


XCT* 

F4LOC 

/XCT* OF LAC AT LOCF4 



01656 

545247 


SAD 

(LAC 6000 

/SKIP IF AC DIFFERENT 

FROM (LAC 

6000 

01657 

741000 


SKP 


/OK 
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0^660 

10060^ 


ERRORa 


01661 

100223 


CHA I N 


0166? 

601652 


JMP 

T 30 + 4 



/TEST 

XcT* OF 

Lac in locf 

01663 

000031 

T31 

31 


01664 

001700 


T3? 


01665 

100527 


TF5 


01666 

100336 


STFN 


01667 

205247 


Lac 

(LAC 6000 

0l670 

060105 


DAC* 

F5LOC 

01671 

750000 


CLA 


0167? 

420105 


XCt* 

F5lOC 

01673 

545247 


sao 

(LAC 6000 

01674 

741000 


SKP 


01675 

100604 


ERRORa 


01676 

100223 


CHAIN 


01677 

601667 


JMP 

T31 + 4 



/TEST 

XcT* OF 

Lac IN LOCF 

01700 

000032 

T32 

32 


01701 

001715 


T33 


01702 

100533 


TF6 


01703 

100336 


STFN 


01704 

205247 


LAC 

(LAC 6000 

01705 

060106 


DAC* 

F6L0C 

01706 

750000 


CLA 


01707 

420106 


XCT* 

F6L0C 

01710 

545247 


SAO 

(Lac 6000 

0I7II 

74I000 


SKP 


01712 

100604 


ERRORa 


01713 

100223 


CHAIN 


01714 

601704 


JMP 

T32+4 



/TEST 

XcT* OF 

Lac in locf 

0l7i5 

000033 

T33 

33 


01716 

001732 


T34 


01717 

100537 


TF7 


01720 

100336 


STFN 


01721 

205247 


LAC 

(LAC 6000 

01722 

060107 


DAC* 

F7LOC 

01723 

750000 


CLA 


01724 

420107 


XCT* 

F7L0C 

01725 

545247 


SAO 

(LAC 6000 

01726 

741000 


SKP 


01727 

100604 


ERRORa 


01730 

100223 


CHAIN 


01731 

601721 


JMP 

T33 + 4 




.EJECT 



/error, XcT* of lac aT L0CF4. 

/LAc 6P!00 nip Reference field 4, 

/REPEAT TEST. 

(oaTa in field 0) 


/RUN IF FIELO 5 AVAILABLE 
/SET FIELDS 

/TEST WORD TO LOCFs 


/XCt» oE LAC AT LOCF 5 

/SKIP IF AC DIFFERENT FROM LAC 6000 

/OK. 

/ERROR, XCT* OF LAC aT LOCE 5. 

/lac 6000 DID NOT reference FIELD 5. 

/REPEAT TEST 
(DATa in FIELD 0) 


/RUN IF FIELD 6 AVAILABLE 
/SET FIELDS 

/TEST WORD TO L0CF6 


/XCT* OF Lac at L0CF6 

/SKIP IF AC DIFFERENT FROM (LAC 6000 

/OK , 

/error. XcT* of Lac aT locf6. 

/LAC 6000 DjD not reference FjFlO 6. 

/REPEAT TEST. 

(DaTa in FIELD 0) . 


/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 

/TEST WORD TO L0CF7. 


/XCT* OF lac at L0CF7 

/SKIP IF AC DIFFERENT FROM (LAC 6000 

/OK. 

/ERROR. XCT* OF LAC AT LOCE7. 

/Lac 6000 DID NOT REFERENCE FIELD 7. 


/REPEAT TEST. 
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/TEST XcT* OF 

Lac* in LOCFl 

(DATA IN FIELD 0) 


(^1732 

000034 

T34 34 




01733 

001754 

T35 




01734 

100336 

STFN 


/SET fields 


01735 

100311 

MOVE 


/? test words of field 1. 


01736 

001752 

T34W 




01737 

016000 

LOCFl 




01740 

777776 

-2 




01741 

205250 

LAC 

( LOCF0 



01742 

046001 

DAC 

LOCF0+1 



01743 

750000 

CLA 




01744 

420101 

XCT» 

FlLOC 

/XCT* OF LAC* AT LOCFl 


01745 

545251 

Sad 

(Lac* 6001 

/SKIP IF AC DIFFERENT FROM (LAC* 

6001 

01746 

741000 

SKP 


/OK . 


01747 

100604 

errora 


/error. XcT* of Lac* aT locfi. 






/lac* 6001 DiD not reference FjElO 1. 

01750 

100223 

CHAIN 




01751 

601735 

JMP 

T 34+3 

/repeat TEST. 


01752 

226001 

T34W LAC« 

6001 

/TEST WORDS. 


01753 

016000 

LOCFl 






/TEST XcT* OF 

Lac* in locF2 

(DaTa in field 0) 


01754 

000035 

T35 35 




01755 

001777 

T36 




01756 

100513 

TF2 


/RUN IF FIELD 2 AVAILABLE 


01757 

100336 

STFN 


/SET fields 


01760 

100311 

MOVE 


/2 test words to field 2 


01761 

001775 

T35W 




01762 

026000 

L0CF2 




01763 

777776 

-2 




01764 

205250 

LAC 

(LOCF0 



01765 

046001 

DAC 

LOCF0+1 



01766 

750000 

CLA 




01767 

420102 

XCT* 

F2L0C 

/XCT* OF LAC* IN L0CF2 


01770 

545251 

SAD 

(LAC* 6001 

/SKIP IF AC DIFFERENT FROM (LAC* 

6001 

01771 

741000 

SKP 


/OK . 


01772 

100604 

errora 


/error. XCT* OF LAC* aT LOCF?. 






/lac* 6001 DiD NOT reference FiElD 2. 

01773 

100223 

CHAIN 




01774 

601760 

JMP 

T 35 + 4 

/REPEAT TEST. 


01775 

226001 

T35W LAC« 

6001 

/TEST WORDS. 


01776 

026000 

L0Cr2 






/TEST XcT* OF 

Lac* in L0CF3 

(DATA IN FIELD 0) 


01777 

000036 

T36 36 




02000 

002022 

T37 




02001 

100517 

TF3 


/RUN IF FIELD 3 AVAILABLE 


02002 

100336 

STFN 


/SET FIELDS 


02003 

100311 

MOVE 


/2 test WORDS TO FIELD 3 


02004 

002020 

T36W 




02005 

036000 

L0CF3 




02006 

777776 

-2 




02007 

205250 

lac 

( LOCF 0 



02010 

046001 

DAC 

LOCF0+1 



02011 

750000 

CLA 




02012 

420103 

XCT* 

F 3 LOC 

/XCT* OF LAC* IN LOCF 3 


02013 

545251 

SAD 

(LAC* 6001 

/SKIP IF AC DIFFERENT FROM (LAC* 

6001 
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02014 

741000 

SKP 


/OK . 



02015 

100604 

ERRORA 


/error. XcT* of LAc*' at l0cF3. 







/LAC* 6001 DID not reference FIELD 

3. 

02016 

100223 

CHAIN 





02017 

602003 

JMP 

T 36 + 4 

/REPEAT TEST. 



02020 

226001 

T36W LAC» 

6001 

/TEST WORDS. 



02021 

036000 

L0CF3 







/TEST XcT* OF 

Lac* in L0CF4 

(DaTa in field 0) 



02022 

000037 

T37 37 





02023 

002045 

T40 





02024 

100523 

TF4 


/RUN IF FIELD 4 AVAILABLE 



02025 

100336 

stfn 


/SET FIELDS 



02026 

100311 

MOVE 


/2 test WORDS TO FIELD 4 



02027 

002043 

T37W 





02030 

046000 

L0CF4 





02031 

777776 

-2 





02032 

205250 

lac 

< LOCF 0 




02033 

046001 

DAC 

LOCF0+1 




02034 

750000 

cla 





02035 

420104 

XCT* 

F4L0C 

/XCt* of LAC* IN L0CF4 



02036 

545251 

SAD 

(LAC* 6001 

/SKIP IF AC DIFFERENT FROM (LAC* 

6001 

02037 

741000 

SKP 


/OK. 



02040 

100604 

ERRORA 


/ERROR. XCT* OF LAC* IN L0CF4. 







/LAC* 6001 DID NOT REFERENCE FIELD 

4 . 

02041 

100223 

CHAIN 





02042 

602026 

JMP 

T37 + 4 

/REPEAT TEST. 



02043 

226001 

T37W LAC* 

6001 

/TEST WORDS. 



02044 

046000 

L0CF4 







/TEST XcT* OF 

Lac* in L0CF5 

(DaTa in field 0) 



02045 

000040 

T40 40 





02046 

002070 

T41 





02047 

100527 

TF5 


/RUN IF FIELD 5 AVAILABLE 



02050 

100336 

STFN 


/SET FIELDS 



02051 

100311 

MOVE 


/2 test words to FIELD 5 



02052 

002066 

T40W 





02053 

056000 

L0CF5 





02054 

777776 

-2 





02055 

205250 

lac 

(LOCF0 




02056 

046001 

DAC 

LOCF0+1 




02057 

750000 

CLA 





02060 

420105 

XCT* 

F5L0C 

/XCT* OF LAC* IN LOCF 5 



02061 

545251 

SAD 

(LAC* 6001 

/SKIP IF AC DIFFERENT FROM (LAC* 

6001 

02062 

741000 

SKP 


/OK. 



02063 

100604 

ERRORa 


/error, XcT* of Lac* in locf5 







/lac* 6001 DiO not reference FjElD 

5. 

02064 

100223 

CHAIN 





02065 

602051 

JMP 

T40 + 4 

/REPEAT test. 



02066 

226001 

T40W LAC* 

6001 

/TEsT words. 



02067 

056000 

L0CF5 







/TEST XcT* OF 

Lac* in locF6 

(DaTa in field 0) 



02070 

000041 

T41 41 





02071 

002113 

T42 





02072 

100533 

TF6 


/RUN IF FIELD 6 AVAILABLE 



02073 

100336 

STFN 


/SET fields 



02074 

100311 

MOVE 


/2 TEST WORDS TO FIELD 6 
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02075 

02076 

02077 
02100 
02101 
02102 

02103 

02104 

02105 

02106 

02107 

02110 

02111 

02112 

02113 

02114 

02115 

02116 
02117 
02120 
02121 
02122 

02123 

02124 

02125 

02126 
02127 

02130 

02131 

02132 

02133 

02134 

02135 


EXM15 




002111 


T41W 


066000 


L0CF6 


777776 


-2 


205250 


LAC 

(LOCF0 

046001 


DAC 

LOCF0+1 

750000 


CLA 


420106 


XCT* 

F6L0C 

545251 


Sad 

(Lac* 6001 

741000 


SKP 


100604 


ERRORa 


100223 


CHAIN 


602074 


JMP 

T41 + 4 

226001 

T4lW 

LAC# 

6001 

066000 


L0CF6 



/TEST 

XcT* OF 

Lac* in locf 

000042 

T42 

42 


002136 


T43 


100537 


TF7 


100336 


STFN 


100311 


MOVE 


002134 


T42W 


076000 


L0CF7 


777776 


-2 


205250 


LAC 

(LOCF0 

046001 


DAC 

LOCF0 + 1 

750000 


CLA 


420107 


XCT* 

F7L0C 

545251 


Sad 

(Lac* 6001 

741000 


SKP 


100604 


ERRORa 


100223 


CHAIN 


602117 


JMP 

T42 + 4 

226001 

T42W 

LAC* 

6001 

076000 


LOCF7 



.EJECT 


/XCT* OF LAC* IN L0CF6 

/SKIP IF AC DIFFERENT FROM (LaC» 6001 

/OK 

/error, xct* of Lac* in locf6. 

/LAC* 6001 DID not REFERENCE FjELO 6. 

/REPEAT TEST. 

/TEST WORDS. 

(OATa in field 0) 


/RUN IF FIELD 7 AVAILABLE 
/SET fields 

/2 test WORDS TO FIELD 7 


/XCT* OF LAC* IN LOCF7 

/SKIP IF AC DIFFERENT FROM (LAC* 6001 

/OK. 

/ERROR, XcT* OF LAC* IN L0CF7. 

/lac* 6001 DID NOT REFERENCE FiElD 7. 

/REPEAT TEST 
/TEST WORDS. 
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/tEst 

XCt* OE 

JMP* AT LOCFl 

(Jumps to field 0 

02136 

000043 

T43 

43 



02137 

002156 


T 44 



02140 

100336 


STrN 


/SET FIELDS 

02141 

100311 


MOVE 


/2 test words to field 1 

02142 

002154 


T43W 



02143 

016000 


LOCFl 



02144 

777776 


~2 



02145 

205252 


lac 

(T43B 


02146 

046001 


DAC 

LoCF0+i 


02147 

420101 


XcT<» 

FlLOc 

/XcT* Of JMP* IN LOcFl 

02150 

100223 

T43A 

ChA I N 



02151 

602141 


JMP 

T43 + 3 

/repeat test 

02152 

100604 

T43B 

ERROR 


/ERROR. JMP* 6001 AT LOCFi REFERENCED 

02153 

602150 


JMP 

T43A 

/FIELD 0 INSTEAD OF FIELD 1. 

02154 

626001 

T 43 W 

JMP* 

6001 

/TEST WORDS. 

02155 

002150 


T43A 





/TEST 

XCT* OF 

JMP* aT L0CF2 

(JUMPS TO field 0) 

02156 

000044 

T 44 

44 



02157 

002177 


T45 



02160 

100513 


TF2 


/RUN IF FIELD 2 AVAILABLE 

02161 

100336 


STFN 


/SET FIELDS 

02162 

100311 


MOVE 


/2 TEST WORDS TO FIELD 2 

02163 

002175 


T44W 



02164 

026000 


L0CF2 



02165 

777776 


-2 



02166 

205253 


lac 

( T44B 


02167 

046001 


DAC 

LOCF 0 +I 


02170 

420102 


XCT* 

F2L0C 

/XCT* OF JMP* IN L0CF2 

02171 

100223 

T44A 

CHAIN 



02172 

602162 


JMP 

T 44 + 4 

/REPEAT TEST 

02173 

100604 

T44B 

ERROR 


/error. JMP* 6001 AT L0CF2 REFERENCED 

02 I 74 

602I7I 


JMP 

T44A 

/FIELD 0 instead OF FIELD 2. 

02175 

626001 

T44W 

JMP« 

6001 

/Test words. 

02176 

002171 


T44A 





/tEst 

xct* of 

JMp* At LOCF3 

(JUMps tO field 0) 

02177 

000045 

T45 

45 



02200 

002220 


T46 



02201 

100517 


TF3 


/RUN IF field 3 AVAILABLE 

02202 

100336 


STFN 


/SET FIELDS 

02203 

100311 


MOVE 


/2 test words to field 3 

02204 

002216 


T45W 



02205 

036000 


L0CF3 



02206 

777776 


-2 



02207 

205254 


lac 

(T45B 


02210 

046001 


DAC 

LqCF 0 + 1 


02211 

420103 


XCT* 

F3LOC 

/XCT* OF JMP* IN LOCF3 

02212 

100223 

T45A 

CHAIN 



02213 

602203 


JMP 

T 45 + 4 

/REPEAT TEST 

02214 

100604 

T 45 B 

error 


/error. JMP* 6001 AT LOcr 3 REFERENCED 

02215 

602212 


JMP 

T45a 

/field 0 instead of field 3. 

02216 

626001 

T45W 

JMP* 

6001 

/TEST WORDS. 

02217 

002212 


T45A 





/TEST 

XCT* OF 

JMp* At L0CF4 

(JuMps TO field 0) 

02220 

000046 

T46 

46 
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^222\ 

002241 


T47 



0222? 

100523 


Tr4 


/RUN IF FlPLn d aVAILAPLF 

022P3 

100336 


STTN 


/SET fields 

02224 

100311 


MOVt 


/2 test words to FIELD 4. 

02?2'3 

002237 


T46W 



02226 

046000 


L0CE4 



02227 

777776 


-2 



02230 

205255 


LAC 

( T46P 


02231 

046001 


DAC 

LOCE 0+1 


02232 

420104 


XCT* 

E4L0C 

/XCT* OF JMP* IN L0CF4 

02233 

100223 

T46A 

CHAIN 



02234 

602224 


JMP 

T46 + 4 

/REPEAT TEST 

02235 

100604 

T 46 B 

ERROR 


/error. JMP* 6001 AT LOCE 4 RFFERENCED 

02236 

602233 


JMP 

T46A 

/FIELD 0 instead OF FIELn 4 , 

02237 

626001 

T46W 

JMP* 

6001 

/TEST WORDS. 

02240 

002233 


T46A 





/tPst 

XCT* OE 

JMp* AT L0CE5 

{ JUMps tD field 0 ) ) . 

02241 

000047 

T 47 

47 



02242 

002262 


T50 



02243 

100527 


TF5 


/RUN IF FIELD 5 AVAILABLE 

02244 

100336 


STFN 


/SET FIELDS 

02245 

100311 


MOVE 


/2 test WORDS TO FIELD 5 

02246 

002260 


T47W 



02247 

056000 


L0CF5 



02250 

777776 


-2 



02251 

205256 


LAC 

( T47B 


02252 

046001 


DAC 

LOCF 0 +I 


02253 

420105 


XCT« 

E5L0C 

/XCT* OF JMP* IN LOCF5 

02254 

100223 

T47A 

CHAIN 



02255 

602245 


JMP 

T47 + 4 

/REPEAT TEST 

02256 

100604 

T47B 

ERROR 


/error. JMP* 6001 AT LOCF 5 REFERENCED 

02257 

602254 


JMP 

T47A 

/FIELD 0 INSTEAD OF FIELD 5. 

02260 

626001 

T47W 

JMP* 

6001 

/TEST WORDS. 

02261 

002254 


T47A 





/TEST 

XCT* OF 

JMp« AT L0CF6 

(JUMPS TO field 0 ) 

02262 

000050 

T50 

50 



02263 

002303 


T51 



02264 

100533 


TF 6 


/RUN IF FIELD 6 AVAILABLE 

02265 

100336 


STFN 


/SET FIELDS 

02266 

100311 


MOVE 


/2 TEST WORDS TO FIELD 6 

02267 

002301 


T50W 



02270 

066000 


L0CF6 



02271 

777776 


-2 



02272 

205257 


lac 

{ T50B 


02273 

046001 


DAC 

LOCF0+1 


02274 

420106 


XCT* 

F6L0C 

/XCT* OF JMP* IN L0CF6 

02275 

100223 

T50A 

chain 



02276 

602266 


JMP 

T 50 ♦ 4 

/REPEAT TEST 

02277 

100604 

T 50 B 

ERROR 


/ERROR. JMP* 6001 AT L0CF6 REFERENCED 

02300 

602275 


JMP 

T50A 

/FIELD 0 instead of FIELD 6 . 

02301 

626001 

T50W 

JMP* 

6001 

/test words 

02302 

002275 


T50A 





/Tf ST 

XCT* OE 

JMp« AT L0CF7 

(JUMps TO field 0 ) 

02303 

000051 

T51 

51 



02304 

002324 


T52 
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02305 

100537 


TF7 


/RUN IF riFLD 7 AVAILABLE 

02306 

100336 


STFN 


/SET FIELDS 

02307 

100311 


move 


/2 test words to FIELD 7. 

02310 

002322 


T51W 



02311 

076000 


L0CF7 



f523l2 

777776 


-2 



02313 

205260 


LAC 

(T51B 


02314 

046001 


OAC 

LOCF 0+1 


02315 

420107 


XCT* 

F7L OC 

/XCT« OF JMPe IN L0CF7 

02316 

100223 

T5lA 

CHAIN 



02317 

602307 


JMP 

T51 + 4 

/REPEAT TEST 

02320 

100604 

T5iB 

ERROR 


/ERROR. JMP* 6001 aT LOCF 7 referenced 

02321 

602316 


JMP 

T 5 IA 

/FIELD 0 instead of FIELD 7. 

02322 

626001 

T51W 

JMP* 

6001 

/TEST WORDS. 

02323 

002316 


T51A 




.EJECT 



PACT 29 


E X M 1 5 


/TEST OF tO LOCFl. aNO FrOM LOCFl RACK TO FIELD C 


2 3 ? 4 

000052 

T57 

52 




v^232'^ 

002340 


T53 




^2326 

100336 


STtni 


/SET FIELDS 


02327 

100311 


MOVE 


/2 test WORDS TO FIELD 

1 

02330 

002336 


T52W 




02331 

016000 


LOCFl 




02332 

777776 


-2 




02333 

620101 


Jmp« 

FlLOC 

/JUMP TO FIElO 1 


02334 

100223 

T52A 

C H A I KI 




02335 

602327 


JMP 

T 5 P + 3 

/REPEAT test 


02336 

626001 

T 52W 

JMP« 

6001 

/TEST WORDS 


02337 

002334 


T52A 






/Test 

JMP« TO 

LOCF2 and 

FROM LOCF2 BACK TO FIELD 0 


02340 

000053 

T53 

53 




02341 

002355 


T54 




02342 

1005i3 


TF2 


/RUN IF FIELD 2 AVaILARLF 

02343 

100336 


stfn 


/SET FIELDS 


02344 

100311 


MOVE 


/2 test words to FIELD 

2 

02345 

002353 


T53W 




02346 

026000 


L0CF2 




02347 

777776 


-2 




02350 

620102 


Jmp* 

F2L0C 

/JUMP TO FIElD 2 


02351 

100223 

T53A 

CHAIN 




02352 

602344 


JMP 

T53 + 4 

/REPEAT TEST 


02353 

626001 

T53W 

JMP« 

6001 

/TEST WORDS 


02354 

002351 


T53A 






/Test 

JMP# TO 

L0CF3, and 

FROM LOCF3 RACK TO FIELD 0 


02355 

000054 

T54 

54 




02356 

002372 


T55 




02357 

100517 


TF3 


/RUN IF FIELD 3 


02360 

100336 


stfn 


/SET FIELDS 


02361 

100311 


MOVE 


/2 test words to field 

3 

02362 

002370 


T54W 




02363 

036000 


L0CF3 




02364 

777776 


-2 




02365 

620103 


Jmp* 

F3LOC 

/JUMP TO field 3 


02366 

100223 

T54 A 

CHAIN 




02367 

602361 


JMP 

T 5 4 ♦ 4 

/REPEAT TEST 


02370 

626001 

T54W 

JMP* 

6001 

/TEST WORDS 


02371 

002366 


T54A 






/TEST 

JMP* TO 

L0CF4, and 

FROM L0CF4 BACK TO FIFLD 0 


02372 

000055 

T55 

55 




02373 

002407 


T56 




02374 

100523 


TF4 


/RUN IF field 4 available 

02375 

100336 


STFN 


/SET FIELDS 


02376 

100311 


MOVE 


/2 test WORDS TO FIELD 

4 

02377 

002405 


T55W 




02400 

046000 


L0CF4 




02401 

777776 


-2 




02402 

620104 


jmp» 

F4loC 

/JUMP To FIElD 4 . 


02403 

100223 

T55A 

CHAIN 




02404 

602376 


JMP 

T55>4 

/REPEAT TEST 


02405 

626001 

T55W 

JMP* 

6001 

/TEST WORDS 


02406 

002403 


T55A 
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/Test 

JMP* TO 

L0CF5 ANn 

from 

LOCF 5 pack to field 0. 

02407 

000056 

T 5 6 

56 




02410 

002424 


T57 




02411 

100527 


TF5 



/RUN IF FIFLD 5 AVaILAPLF 

02412 

100336 


STFN 



/SET fields 

02413 

100311 


MOVE 



/2 test words TO FIELD 5 

02414 

002422 


T56W 




02415 

056000 


L0CF5 




02416 

777776 


-2 




02417 

620105 


Jmp* 

E5L0C 


/JUMP TO f IElD 5 

02420 

100223 

T 5 6 A 

CHAIN 




02421 

602413 


JMP 

T56 + 4 


/REPEAT TEST 

02422 

626001 

T56W 

JMP* 

6001 


/TEST WORDS 

02423 

002420 

/Test 

T56 A 
JMP* TO 

L0CF6 and 

from 

L0CF6 BACK TO FIELD 0 

02424 

000057 

T57 

57 




02425 

002441 


T60 




02426 

100533 


TF 6 



/run if field 6 availble 

02427 

100336 


STFN 



/SET FIELDS 

02430 

100311 


MOVE 



/2 test words TO FIELD 6 

02431 

002437 


T57W 




02432 

0 66 00 0 


L0CF6 




02433 

777776 


-2 




02434 

620106 


Jmp« 

F 6L0C 


/JUMP To field 6 

02435 

100223 

T57A 

CHAIN 




02436 

602430 


JMP 

T57 + 4 


/REPEAT TEST. 

02437 

626001 

T57W 

JMP* 

6001 


/TEST WORDS 

02440 

002435 

/TEST 

T57A 
JMP* TO 

L0CF7 ANO 

from 

LOCF 7 back to FIELD 0 

02441 

000060 

T60 

60 




02442 

002456 


T 61 




02443 

100537 


TF7 



/RUN IF FIELD 7 AVAILABLE 

02444 

100336 


STFN 



/SET FIELDS 

02445 

100311 


MOVE 



/2 test WORDS TO FIELD 7 

02446 

002454 


T60W 




02447 

07 6000 


L0CF7 




02450 

777776 


-2 




02451 

620107 


Jmp* 

F7lOC 


/JUMP To FIElO 7 

02452 

100223 

T60A 

CHAIN 




02453 

602445 


JMP 

T 60 + 4 


/REPEAT TEST 

02454 

626001 

T60W 

JMP* 

6001 


/TEST WORDS 

02455 

002452 


T60A 

•EJECT 
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/test 

OF SKP 1 

: N 

LQf'Fi 


1^2456 

000061 

T61 

61 




02457 

002473 


T6^ 




02460 

100336 


stem 



/SFT FIELDS 

02461 

100311 


MOVE 



/TEST WORDS TO PIELD : 

02462 

002470 


T61W 




02463 

016000 


LOTEi 




02464 

777775 


-3 




02465 

620101 


jMP* 


P iLor 

/GO TO field 1 

02466 

100223 

T61A 

CHAIN 




02467 

602461 


JMP 


T 6 1 + 3 

/REPEAT TEST 

02470 

741000 

T61W 

SKP 



/TEST WORDS. 

02471 

002466 


T6 1 A 




02472 

626001 


JMP« 


6 0 01 




/TEST 

OF SKP 1 

[N 

LOCF2 


02473 

000062 

T62 

62 




02474 

002511 


T63 




02475 

100513 


TF2 



/RUN IF FIELD ? AVaILAPLF 

02476 

100336 


STFN 



/SET FIELDS 

02477 

100311 


MOVE 



/TEST WORDS TO FIELD 2 

02500 

002506 


T62W 




02501 

026000 


L0CF2 




02502 

777775 


-3 




02503 

620102 


JMP« 


F2LOC 

/GO TO field 2 

02504 

100223 

T62A 

CHA I N 




02505 

602477 


JMP 


T6?*4 

/REPEAT TEST. 

02506 

741000 

T62W 

SKP 



/TEST WORDS 

02507 

002504 


T62A 




02510 

626001 


JMPfl 


6001 




/TEST 

OF SKP 1 

[N 

L0CF3 


02511 

000063 

T63 

63 




02512 

002527 


T64 




02513 

100517 


TF3 



/RUN IF FIELD 3 AVAILABLE 

02514 

100336 


STFN 



/SET FIELDS 

02515 

100311 


MOVE 



/TEST WORDS TO FIELD 3 

02516 

002524 


T63W 




02517 

036000 


L0CF3 




02520 

777775 


-3 




02521 

620103 


JMP* 


F3L0C 

/GO TO field 3 

02522 

100223 

T63A 

CHAIN 




02523 

602515 


JMP 


T63 + 4 

/REPEAT TEST 

02524 

741000 

T63W 

SKP 



/TEST WORDS 

02525 

002522 


T63A 




02526 

626001 


JMP* 


6001 




/TEST 

OF SKP ] 

;N 

LOCFd 


02527 

000064 

T64 

64 




02530 

002545 


T65 




02531 

100523 


TF4 



/RUN IF FIELD 4 AVAILABLE 

02532 

100336 


STFN 



/SET FIELDS 

02533 

100311 


MOVE 



/TEST WORDS TO FIELD 4 

02534 

002542 


T64W 




02535 

046000 


L0CF4 




02536 

777775 


-3 




02537 

620104 


JMP* 


F4L0C 

/GO TO field 4 

02540 

100223 

T64A 

CHAIN 
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/REPEAT TEST 
/TEST WORDS 


/RUN IF FIELD 5 AVaILARL^ 
/SET FIELDS 

/TEST WORDS TO FIELD 5 


/Go TO EIElD 5. 

/REPEAT TEST 
/TEST WORDS 


/RUN IF FIELD 6 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 6 


/Go TO FIElD 6 

/REPEAT TEST 
/TEST WORDS 


/RUN IF FIELD 7 AVAILABLE 
/SET FIELD numbers 
/TEST WORDS TO FIELD 7 


/GO TO field 7 

/REPEAT TEST 
/TEST WORDS 
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/TEST 

OF Sad in 

LOCFl 


t^26l7 

000070 

T70 

70 



H262P> 

002634 


T71 



^^262l 

100336 


STFN 


/SET fields 

0262? 

100311 


MOVE 


/TEST WORDS TO FIELD 1 

02623 

002631 


t70W 



02624 

016000 


LOCri 



02625 

777775 


-3 



02626 

620101 


Jmp* 

FlL OC 

/GO TO FIElD 1, AC IS 0. 

02627 

100223 

T70A 

CHA I N 



02630 

602622 


JMP 

T 70 + 3 

/REPEAT TEST 

0 26 31 

546000 

T70W 

SAD 

6000 

/TEST WORDS 

0263? 

002627 


T70A 



02633 

626001 


JMPtt 

6001 




/TEST 

OF Sad in 

LOCF? 


02634 

000071 

T71 

71 



02635 

002652 


T72 



02636 

100513 


TF2 


/RUN IF field 2 AVAILABLE 

02637 

100336 


stfn 


/SET fields 

02640 

100311 


MOVE 


/TEST WORDS TO rjELD 2 

02641 

002647 


T7iW 



02642 

026000 


LOCE? 



02643 

777775 


-3 



02644 

620102 


Jmp* 

F2L0C 

/GO TO field 2. AC IS 0. 

02645 

100223 

T71A 

CHAIN 



02646 

602640 


JMP 

T71 + 4 

/REPEAT TEST 

02647 

546000 

T71W 

SAD 

6000 


02650 

002645 


T71A 



02651 

626001 


JMP# 

6001 




/TEST 

OF SAD IN 

LOCF3 


02652 

000072 

T72 

72 



02653 

002670 


T73 



02654 

100517 


TF3 


/RUN IF FIELD 3 AVAILABLE 

02655 

100336 


STFN 


/SET fields 

02656 

100311 


MOVE 


/TEST WORDS TO FIELD 3 

02657 

002665 


T72W 



02660 

036000 


L0CF3 



02661 

777775 


-3 



02662 

620103 


Jmp* 

F3L0C 

/GO TO FIELD 3. AC IS 0. 

02663 

100223 

T72A 

CHAIN 



02664 

602656 


jmp 

T72 + 4 

/REPEAT TEST 

02665 

546000 

T7?W 

SAD 

6000 

/TEST WORDS 

02666 

002663 


T72A 



02667 

626001 


JMP# 

6001 




/TEST 

OF Sad in 

LOCF4 


02670 

000073 

T73 

73 



02671 

002706 


T74 



02672 

100523 


TF4 


/RUN IF FIELD 4 AVAILABLE 

02673 

100336 


STFN 


/SET FIELDS 

02674 

100311 


MOVE 


/TEST WORDS TO FIELD 4 

02675 

002703 


T73W 



02676 

046000 


L0CF4 



02677 

777775 


-3 


/Go TO FIElD 4. AC Is 0. 

02700 

620104 


Jmp* 

f"4L0C 

02701 

100223 

T73A 

CHAIN 
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02702 

602674 


JMP 

T73 + 4 

/REPEAT test 

02703 

546000 

T7 7W 

SAG 

6000 

/TEST WORDS 

02704 

002701 


T73A 



02705 

626001 


JMP« 

60t^ 1 




/TfST 

or sad in 

L0CF5 


02706 

000074 

T74 

74 



02707 

002724 


T75 



02710 

100527 


TF5 


/RUN iF FjElP available 

02711 

100336 


STFN 


/set fields 

02712 

100311 


MOVE 


/TEST WORDS TO FIELD 5 

02713 

002721 


T74W 



02714 

056000 


L0CE5 



02715 

777775 


-3 



02716 

620105 


jmp» 

F5L0C 

/Go TO FTElD 5. AC Is 0. 

02717 

100223 

T74A 

CHAIN 



02720 

602712 


JMP 

T 7 4 + 4 

/REPEAT TEST 

02721 

S46000 

T74W 

SAP 

6000 

/TEST WORDS 

02722 

002717 


T74A 



02723 

626001 


JMP* 

6001 




/TEST 

OF SAD IN 

L0CE6 


02724 

000075 

T75 

75 



02725 

002742 


T76 



02726 

100533 


TF6 


/RUN IF FIELD 6 AVAILABLE 

02727 

100336 


STEN 


/SET FIELDS 

02730 

100311 


MOVE 


/TEST WORDS TO FIELD 6 

02731 

002737 


T75W 



02732 

066000 


L0CF6 



02733 

777775 


-3 



02734 

620106 


Jmp» 

F6L0C 

/Go To FIElD 6. AC Is 0. 

02735 

100223 

T75A 

CHAIN 



02736 

602730 


JMP 

T75 + 4 

/REPEAT TEST 

02737 

546000 

T75W 

SAD 

6000 

/TEST WORDS 

02740 

002735 


T75A 



02741 

626001 


JMP* 

6001 




/test 

OE Sad in 

L0CF7 


0274;? 

000076 

T76 

76 



02743 

002760 


T77 



02744 

100537 


TE7 


/RUN IF FIELD 7 AVAILABLE 

02745 

100336 


STEN 


/SET FIELDS 

02746 

100311 


MOVE 


/TEST WORDS TO FIELD 7 

02747 

002755 


T76W 



02750 

076000 


L0CF7 



02751 

777775 


-3 



02752 

620107 


Jmp« 

F7L0C 

/GO TO field 7. AC IS 0. 

02753 

100223 

T76A 

CHA I N 



02754 

602746 


JMP 

T76 + 4 

/REPEAT TEST 

02755 

546000 

T76W 

SAP 

6000 

/TEST WORDS 

02756 

002753 


T76A 



02757 

626001 


JMP* 

6001 



.EJECT 
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/Test 

That jms 

IN LOCF1 

STORES 

PC3-5 correctly 


000077 

T77 

77 




(^2761 

003003 


T100 




0276? 

100336 


STFN 



/SET ElEinS 

02763 

100311 


MOVE 



/TEST WORDS TO FIELD 1 

02764 

002776 


T77W 




02765 

016000 


LOCFl 




02766 

777773 


-5 




02767 

620101 


JHP* 

FiLOC 


/GO TO FIELD 1 

02770 

505215 

T77A 

AND 

( K70K 


/ISOLATE AC 3-5 

02771 

545233 


SAD 

(Kl0K 


/ AC3-5=001 7 

0277? 

741000 


SKP 



/YES. 

02773 

100604 


ERPORa 



/NO. E^^ROR- in field 1 Dl 

/NOT STORE PC3-5 CORRECTLY. 

02774 

100223 


CHAIN 




02775 

602763 


JMP 

T77 + 3 


/REPEAT TEST. 

02776 

106001 

T77W 

JMS 

6001 


/TEST WORDS 

02777 

000000 


0 




03000 

206001 


lac 

6001 



03001 

626004 


JMp* 

6004 



03002 

002770 

/Test 

T77A 

THaT JMS 

IN L0CF2 

stores 

PC3-5 correctly 

03003 

000100 

Ti00 

100 




03004 

003027 


T101 




03005 

100513 


TF2 



/RUN IF FIELD 2 AVAILABLE 

03006 

100336 


stfn 



/SET fields 

03007 

100311 


MOVE 



/TEST WORDS TO FIELD 2 

03010 

003022 


T100W 




03011 

026000 


L0CF2 




03012 

777773 


-5 




03013 

620102 


JMP* 

F2L0C 


/GO TO field 2 

03014 

505215 

T1PI0A 

AND 

( K70K 


/ISOLATE AC3-5 

03015 

545230 


SAD 

( K20K 


/AC3-5=010? 

03016 

741000 


SKP 



/YES. 

03017 

10060'i 


errora 



/NO. error, jms in field 2 
/DIO NOT STORE PC3-5 CORRECTLY 

03020 

100223 


CHAIN 




03021 

603007 


JMP 

T100+4 



03022 

106001 

T100W 

JMS 

6001 


/TEST WORDS, 

03023 

000000 


0 




03024 

206001 


lac 

6001 



03025 

626004 


JMp* 

6004 



03026 

003014 

/TEST 

Ti00A 

That jms 

IN L0CF3 

STORES 

PC3-5 CORRECTLY 

03027 

000101 

Tl01 

101 




03030 

003053 


T102 




03031 

100517 


TF3 



/RUN IF FIELD 3 AVAILABLE 

0303? 

100336 


STFN 



/SET fields 

03033 

100311 


MOVE 



/TEST words TO FIELD 3 

03034 

003046 


T101W 




03035 

036000 


L0CF3 




03036 

777773 


-5 




03037 

620103 


JMP* 

F3L0C 


/GO TO field 3 

03040 

505215 

Ti0iA 

AND 

(K70K 


/ISOLATE AC3-5 

03041 

545226 


SAD 

(K30K 


/AC3-5=011? 
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741000 


SKP 



/YES. 

03043 

1 0060'’ 


ERRORA 



/NO. error. JMS IN El ELD 3 DID 
/NOT STORE Pc3-5 CORRECTl.v. 

03044 

100223 


C H A I Ki 




03045 

603033 


JMP 

T 1 0 1 + 4 


/REPEAT TEST. 

03046 

106001 

T i0iW 

JMS 

6001 


/TEST WORDS. 

03047 

000000 


0 




03050 

206001 


lac 

6001 



03051 

626004 


JMp» 

6004 



03052 

003040 

/TEST 

T 101A 

THaT jms 

IN LOCE 4 

stores 

RC3-5 correctly 

03053 

00010? 

Ti02 

102 




03054 

003077 


T 103 




03055 

100523 


Tr4 



/RUN IE EIELn 4 available 

03056 

100336 


STpn 



/SET FIELDS 

03057 

100311 


MOVE 



/TEST WORDS TO FIELD 4 

03060 

003072 


T 102 W 




03061 

046000 


LOCEA 




0306? 

777773 


-5 




03063 

620104 


JMP* 

E4L0C 


/GO TO field 4 

03064 

505215 

Ti02A 

AND 

(K70K 


/ISOLATE AC 3-5 

03065 

545261 


SAD 

{ K40K 


/AC3-5= 00? 

03066 

741000 


SKP 



/YES. 

03067 

100604 


errora 



/NO. error. JMS IN EIELO 4 DID 
/NOT STORE PC3-5 CORRECTLY. 

03070 

100223 


CHA I N 




03071 

603057 


JMP 

T 102 + 4 


/REPEAT TEST. 

0307? 

106001 

Ti02W 

JMS 

6001 


/TEST WORDS. 

03073 

000000 


0 




03074 

206001 


lac 

6001 



03075 

626004 


JMp« 

6004 



03076 

003064 

/TEST 

T 102A 

thaT jms 

IN LOCE 5 

stores 

PC3-5 correctly 

03077 

000103 

T 103 

103 




03100 

003123 


T 104 




03101 

100527 


TFS 



/RUN IE FIELD 5 AVAILABLE 

03102 

100336 


STEn 



/set fields 

03103 

100311 


MOVE 



/TEST WORDS TO FIELD 5 

03104 

003116 


T103W 




03105 

056000 


L0CE5 




03106 

777773 


-5 




03107 

620105 


JMP* 

E5L0C 


/GO TO field 5 

03110 

505215 

T103A 

AND 

(K70K 


/ISOLATE AC3-5 

03111 

545224 


SAD 

(K50K 


/AC3-5= 01? 

0311? 

741000 


SKP 



/YES. 

03113 

100604 


errora 



/NO. error, jms in field 5 DID 
/NOT STORE Pc3-5 CORRECTLY. 

03114 

100223 


CHA I N 




03115 

603103 


JMP 

T 103 + 4 


/REPEAT TEST. 

03116 

106001 

T103W 

JMS 

6001 


/TEST WORDS. 

03117 

000000 


0 




03120 

206001 


LAC 

6001 



03121 

626004 


JMp* 

6004 



03122 

003110 

/Test 

Ti03A 
THaT JMS 

IN L0cE6 

stores 

PC3-5 correctly 
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3 1 2 3 

000104 

Ti04 

104 



(^3124 

003147 


Tl ’5 



0 3 1 2 *5 

100533 


TF ^ 


/RUN IF FIELD 6 aVaILAPLF 

3^26 

100336 


STEM 


/SFT FIELDS 

03127 

100311 


MOVE 


/TEST WORDS TO FIELD 6 

0 3 1 3 P 

003142 


T104W 



03131 

066000 


L0CE6 



031 32 

777773 


-5 



03133 

620106 


JMP« 

r6L0C 

/GO TO fIeLD 6 

03134 

505215 

T104A 

AND 

( ‘<70K 

/Isolate ac3-5 

0313*5 

545222 


SAD 

( K ^ 0K 

/AC3-5=ll 0? 

03136 

741000 


SKP 


/YES. 

0 313 7 

1 00604 


E" P P 0 P A 


/NO. error. JMS IN field 6 
/NOT STORE PC3-5 CORRECTLY 

03140 

100223 


CHAIN 



0 3141 

603127 


JMP 

T104+4 

/repeat test 

03142 

106001 

T104W 

JMs 

6001 

/TEst words. 

03143 

000000 


0 



03144 

206001 


lac 

6 001 


03145 

626004 


JMp* 

6004 


03146 

003134 

/TEST 

Ti04 A 

THaT jms 

IN LOcF7 

STORES PC3-5 CORREcTlY 

03147 

000105 

Ti05 

105 



03150 

003173 


T106 



03151 

100537 


TF7 


/RUN IF FIELD 7 AVAILABLE 

0315? 

100336 


STFN 


/SET FIELDS 

03153 

100311 


MOVE 


/TEST WORDS TO FIELD 7 

03154 

003166 


T105W 



03155 

07 6000 


LOCF7 



03156 

777773 


-5 



03157 

620107 


JMP» 

F7L0C 

/GO TO field 7 

03160 

505215 

T105A 

AND 

(K70K 

/ISOLATE AC3-5 

03161 

545215 


SAD 

( K70K 

/AC3-5=11 1? 

03162 

741000 


SKP 


/YES. 

03163 

10060^ 


erropa 


/NO. error, jms in field 7 

/NOT STORE PC3-5 CORRECTLY 

03164 

100223 


chain 



03165 

603153 


JMP 

T105+4 

/REPEAT TEST 

03166 

106001 

T105W 

JMs 

6001 

/TEsT WORDS. 

03167 

000000 


0 



03170 

206001 


LAC 

6001 


03171 

626004 


JMp* 

6004 


03172 

003160 


T105A 






.EJECT 
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/test 

thaT cal* 

IN LOCFI 

03173 

000106 

T106 

106 


03174 

003214 


T 1 0 7 


03175 

100336 


stfn 


03176 

205230 


LAC 

(CAL* 

03177 

060101 


DAC* 

FlLOC 

03200 

205262 


LAC 

( T 106A 

03201 

040020 


PAC 

L20 

03202 

143204 


DZM 

T106A 

03203 

620101 


JMP* 

FlLOC 

03204 

000000 

Ti06A 

0 


03205 

203204 


LAC 

T 106A 

03206 

505215 


AND 

( K70K 

03207 

545233 


SAD 

( K10K 

03210 

741000 


SKP 


03211 

100604 


errora 


03212 

100223 


CHA 1 N 


03213 

603176 


JMP 

T106+3 



/Test 

THaT CAL* 

IN L0CF2 

03214 

000107 

T107 

107 


03215 

003236 


T110 


03216 

100513 


TF2 


03217 

100336 


STFN 


03220 

205230 


LAC 

(CAL* 

03221 

060102 


DAC* 

F2L0C 

03222 

205263 


LAC 

(Ti07A 

03223 

040020 


DAC 

L20 

03224 

143226 


DiM 

T107A 

03225 

620102 


JMP» 

F2L0C 

03226 

000000 

T 107A 

0 


03227 

203226 


LAC 

T107A 

03230 

505215 


AND 

( K70K 

03231 

545230 


SAD 

( K20K 

03232 

741000 


SKP 


03233 

100604 


errora 


03234 

100223 


CHAIN 


03235 

603220 


JMP 

T107+4 



/test 

that CAL* 

IN L0CF3 

03236 

000110 

T110 

110 


03237 

003260 


Till 


03240 

100517 


TF3 


03241 

100336 


stfn 


03242 

205230 


LAC 

(CAL* 

03243 

060103 


DAC« 

F3L0C 

03244 

205264 


LAC 

(Ti10A 

03245 

040020 


DAC 

L20 

03246 

143250 


D2M 

T110A 

03247 

620103 


JMP« 

F3L0C 

03250 

000000 

T110A 

0 


03251 

203250 


LAC 

T110A 

03252 

505215 


AND 

( K70K 

03253 

545226 


SAD 

( K30K 

03254 

741000 


SKP 



REFEReNIrES FIELn aNP stores Po3-5 correctly 


/SE T F IElOS 

/test word to LOCEl 

/SET indirect pointer IN LOC 20 
/TO T 106 A . 

/?ER0 out T 106 A 

/GO TO field 1 TO DO CAL« 

/GET C (Ti06A) 

/isolate Ar3-5 

/AC5-5=00l? 

/YES. 

/NO. Error, cal* in locei 
/DIO NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST. 

references field 0 and stores PC3-5 correctly 


/RUN IF field 2 AVAILABLE 

/set fields 

/TEST WORD TO L0CF2 

/SET indirect pointer IN LOC20 

/TO T 107A 

/2ER0 TO Ti07A 

/GO TO FIELD 2 TO 00 CAL« 

/GET C(Tl07A) 

/ISOLATE AC 3-5 
/AC3-5=0l0? 

/yes. 

/NO. error. CAl« in L00F2 
/DID NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST. 

REFERENCES FIELD 0 aNO STORES PC3-5 CORRECTLY 


/RUN iF Field 3 available 

/SEt fields 

/TEST WORD ro L0CF3 

/SET POINTER IN LOC20 TO Tii0A 

/2Er0 T110A 

/GO TO FIELD 3 TO DO CAL^j 

/GET C (T110A) 

/isolate AC3-5 
/AC3-5=011? 

/YES. 
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03255 

100604 


ERRORa 


03256 

100223 


chain 


03257 

603242 


JMP 

T110+4 


/test 

THaT CaL* 

IN LOCF4 

03260 

000111 

Till 

111 


03261 

003302 


T112 


03262 

100523 


TF4 


03263 

100336 


stfn 


03264 

205230 


LAC 

(CAL* 

03265 

060104 


DAC* 

F4LOC 

03266 

205265 


LAC 

( TlllA 

03267 

040020 


DAC 

L20 

03270 

143272 


OgM 

TlllA 

03271 

620104 


JMP* 

F4L0C 

03272 

000000 

TillA 

0 


03273 

203272 


LAC 

TlllA 

03274 

505215 


AND 

( K70K 

03275 

545261 


SAD 

( K40K 

03276 

741000 


SKP 


03277 

1 00604 


ERRORA 


03300 

100223 


CHAIN 

Tlll+4 

03301 

603264 


JMP 



/test 

that cal* 

IN LOCF5 

03302 

000112 

T112 

112 


03303 

003324 


T113 


03304 

100527 


TF5 


03305 

100336 


Stfn 


03306 

205230 


lac 

(CAL* 

03307 

060105 


DAC* 

F5LOC 

03310 

205266 


lac 

(T112A 

03311 

040020 


DAC 

L20 

03312 

143314 


DZM 

T112A 

03313 

620105 


JMPft 

F5L0C 

03314 

000000 

T112A 

0 


03315 

203314 


LAC 

T112A 

03316 

505215 


AND 

( K70K 

03317 

545224 


SAD 

(K50K 

03320 

741000 


SKP 


03321 

100604 


ERRORA 


03322 

100223 


CHAIN 


03323 

603306 


JMP 

TII2+4 



/test 

that cal* 

IN L0CF6 

03324 

000113 

Tll3 

ll3 


03325 

003346 


T114 


03326 

100533 


TF6 


03327 

100336 


STFN 


03330 

205230 


LAC 

(CAL* 

03331 

060106 


DAC* 

F6L0C 

03332 

205267 


LAC 

( T113A 

03333 

040020 


DAC 

L20 

03334 

143336 


D^M 

T113A 

03335 

620106 


JMP* 

F6L0C 


/NO. error. cal<» in LOCF? 

/DID NOT STORE Pr3-5 CORRECTLY. 

/REPEAT TEST. 

REFERENCES FlELn 0 aND STORES PC 3-5 cORREcTLY 


/RUN FjElO 4 AVAjLABlF 

/sEt fields 

/TEST WORD TO L0CF4 

/SET POINTER IN LOCaO TO TmA 

/2ERO TiiiA 

/GO TO field 4 TO DO CAL* 

/GET C (TiiiA) 

/isolate AC 3-5 

/AC3-5= 00? 

/YES. 

/NO. Error, cal* In locF4 
/DID NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST 

REFERENCES FIELD 0 AND STORES PC3-5 CORRECTLY 


/RUN iF Field 5 available 

/SET FIELDS 

/TEST WORD TO L0CF5 

/SET pointer IN LOC20 TO T112a 

/zero Tli2A 

/GO TO field 5 TO DO CAL* 

/GET C (T112A) 

/isolate AC3-5 
/AC3-5=101? 

/YES. 

/NO. ERROR. CAl* in L0CF5 DlO 
/NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST 

REFERENCES FIELD 0 AND STORES PC3-5 CORRECTLY 


/RUN iF FiElD 6 AVAILABLE 

/sEt fields 

/TEST WORD TO LOCFA 

/SET POINTER IN 10020 TO Tii3A 

/ZERO Tii3A 

/GO TO FIELD 6 TO 00 CAL* 
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03336 

000000 

T113A 

0 


03337 

203336 


LAC 

Ti13A 

03340 

505215 


AND 

( K70K 

0334I 

545222 


SAD 

(K60K 

03342 

741000 


SKP 


03343 

100604 


Errora 


03344 

100223 


chain 


03345 

603330 


JMP 

Til 3 + 4 



/test 

THaT cal^» 

IN LOCF7 

03346 

000114 

T114 

114 


03347 

003370 


T115 


03350 

100537 


TF7 


03351 

100336 


STFN 


03352 

205230 


LAC 

(CAL* 

03353 

060107 


DAC* 

F7L0C 

03354 

205270 


LAC 

( Tii4A 

03355 

040020 


DAC 

L20 

03356 

143360 


O2M 

Tii4A 

03357 

620107 


JMP* 

F7L0C 

03360 

000000 

Tii4A 

0 


03361 

203360 


LAC 

T114a 

03362 

505215 


and 

( K70K 

03363 

545215 


SAD 

(K70K 

03364 

741000 


SKP 


03365 

100604 


ERRORA 


03366 

100223 


CHAIN 


03367 

603352 


JMP 

T114+4 




.EJECT 



/GET C { Tl 13A ) 

/isolate AC3-5 
?'Ar3-5= 0? 

/YES. 

/NO. error. CAl* in L0 GF6 
/DIO NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST. 

references field 0 and stores PC3-5 correctly. 


/RUN if^ FjElD 7 available 

/set fields 

/TEST WORD TO L0CF7 

/SET pointer in LOC20 TO T 114A 

/ 2 ERO Tii4A 

/GO TO FIELD 7 TO 00 CAL* 

/GET C (T114a) 

/ISOLATE AC3-5 
/AC3-5= 11? 

/YES. 

/NO. error. CAL* IN L0CF7 
/DIO NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST 
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/Test 

THaT aDTO 

-INdeX from 

0 3 3 7 0 

00P115 

T 115 

115 


03371 

00341 2 


T116 


03372 

100336 


STfN 


03373 

100311 


MOvE 


03374 

003407 


T115W 


03375 

016000 


LOCFi 


03376 

777775 


-3 


03377 

205271 


lac 

(JmP TU5B 

03400 

046001 


OAC 

LOCF0+1 

03401 

205250 


Lac 

(LOCF0 

03402 

040010 


DAC 

Ll(^ 

03403 

620101 


JMP* 

FlLOC 

03404 

100604 

Ti15A 

error 


03405 

100223 

T 115 B 

chain 


03406 

603373 


JMP 

T115+3 

03407 

620010 

T115W 

JMP* 

10 

03410 

626002 


JMP* 

6002 

03411 

003404 

/TfST 

T115A 

That auto 

-inqfX from 

03412 

000116 

T116 

116 


03413 

003435 


T117 


03414 

100513 


TF2 


03415 

100336 


STFN 


03416 

100311 


MOVE 


03417 

003432 


T116W 


03420 

026000 


L0CF2 


03421 

777775 


-3 


03422 

205272 


LAC 

(JmP T116B 

03423 

046001 


DAC 

LOCF0+1 

03424 

205250 


LAC 

(LOCF0 

03425 

040010 


DAC 

L10 

03426 

620102 


JMP* 

F2L0C 

03427 

100604 

TII 6 A 

ERROR 


03430 

100223 

T116B 

CHAIN 


03431 

603416 


JMP 

T116 + 4 

03432 

620010 

T116W 

JMP» 

10 

03433 

626002 


JMP* 

6002 

03434 

003427 

/test 

T116A 
THaT aUTO 

-index from 

03435 

000117 

T117 

117 


03436 

003460 


T120 


03437 

100517 


TF3 


03440 

100336 


STEN 


03441 

100311 


MOVE 


03442 

003455 


T117W 


03443 

036000 


L0CE3 


03444 

777775 


-3 


03445 

205273 


LAC 

(JmP T117B 

03446 

046001 


DAC 

LOCF0+1 

03447 

205250 


LAC 

(LOCF0 

03450 

040010 


DAC 

L10 

03451 

620103 


JMP* 

F3L0C 


FIEI-O 1 '^FFFRrNrES FIELD D AMp POINTS TO FIELD D 


/set fields 

/TFSt words tO field 1 


/return Instruction to locf0+i 
/SET LOC10 in field D 
/GO TO FIELD 1 

/ERROR. aUTO- I NDEX I NG FROM FIELD 1 

/pointer to field 1 instead of field 0 

/REPEAT TEST. 

/tEst WorDs. 


fieLd ^ RefeRfnOeS field 0 ANn points to field 0 


/RUN iE Field 2 available 
/sEt fields 

/TEST WORDS TO FIELD 2 


/return Instruction to loce0+i 

/SET LOC10 IN FIELD 0 
/GO TO field 2 

/ERROR. aUTO indexing FROM FIELD 2 
/POINTED TO FIELD 2 INSTEAD OF FIELD 0. 

/repeat test 
/TEST WORDS. 


field 3 references field 0 aNd points to field 0 


/RUN lE Field 3 available 
/sEt fields 

/TEST words to FIELD 3 


/RETURN Instruction to Locf0+i 

/SET LOC10 IN FIELD 0 
/GO TO FIELD 3 
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0345? 

100604 

Ti17A 

ERROR 


/ERROR. aUTO: INDEXING FROM FIELD 3 

/pointed to EIELD 3 instead of field 0 

03453 

100223 

T117R 

CHAIN 



03454 

603441 


JHP 

T 117 + 4 

/repeat test 

03455 

620010 

T 117W 

JHP« 

1 0 

/TEST Words 

03456 

626002 


J M P ■» 

6002 


03457 

00345? 

/test 

T117A 

T H A T A 0 T 0 

-INoE/ rROM 

field 4 references field 0 aNd points to field c 

03460 

000120 

T 1 20 

120 



03461 

003503 


T121 



0346? 

100523 


TR4 


/RUN jE EiElD 4 AVAilARlE 

03463 

100336 


STCN 


/SEt EIELDs 

03464 

100311 


HOVE 


/TEST words to FIELD 4. 

03465 

003500 


T120W 



03466 

046000 


LOCE 4 



03467 

777775 


-3 



03470 

205274 


LAC 

(JmP T120B 

/return Instruction to loce0+i 

03471 

046001 


DAC 

LOCF0+1 


0347? 

205250 


Lac 

( LOCF0 

/SET LOC10 IN FIELD 0 

03473 

040010 


DAC 

L10 


03474 

620104 


JMPi> 

r4LOC 

/GO TO FIELD 4 

03475 

100604 

T120A 

Error 


/error. AUTO-InDEXInG Erom EIElO 4 
/POINTED TO FIELD 4 INSTEAD OF FIELD 0 

03476 

100223 

Tl20fi 

CHA I N 



03477 

603464 


JMP 

T 120 + 4 

/REPEAT TEST. 

03500 

620010 

T120W 

JMP« 

10 

/TEST WORDS. 

03501 

626002 


JMP •» 

6002 


03502 

003475 

/Test 

T120A 
THaT aUTO 

-inde/ from 

field 5 references field 0 aNd POINTS TO FIELD 0 

03503 

000121 

Ti 21 

121 



03504 

003526 


T 122 



03505 

100527 


TF5 


/RUN IF FIELD 5 IS AVAILABLE 

05506 

100336 


stem 


/SET fields 

03507 

100311 


MOVE 


/TEST WORDS TO FIELD 5 

03510 

003523 


T 12 IW 



03511 

056000 


L0CE5 



03512 

777775 


-3 



03513 

205275 


LAC 

<JmP T1218 

/return Instruction tq LcCeo+i 

03514 

046001 


DAC 

LOCr 0 +l 


03515 

205250 


lac 

(LOCF 0 

/SET LOC10 IN FIELD 0 

03516 

040010 


DAC 

L10 


03517 

620105 


JMP« 

F5L0C 

/GO TO FIELD 5 

03520 

100604 

Ti 21 A 

ERROR 


/ERROR. aUTO-INDEXING FROM FIELD 5 
/POINTED TO field 5 INSTEAD OF FIELD 0 

035?! 

100223 

TI 2 IB 

CHAIN 



03522 

603507 


JMP 

T121 + 4 

/repeat test 

03523 

620010 

T121W 

JMP» 

10 

/TEST WORDS. 

03524 

626002 


JMP* 

6002 


03525 

003520 

/TEST 

T121A 

That auto 

-index From 

FjElD 6 references EjElD 0 AnO POINTS To EjElD 0 

03526 

000122 

T122 

122 



03527 

003551 


T123 



03530 

100533 


TF 6 


/RUN lE EiELO 6 AVAILABL: 

03531 

100336 


STEN 


/sEt fields 

03532 

100311 


MOVE 


/TEST WORDS TO FIELD 6 
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03533 

003546 


T122W 


03534 

066000 


L0CF6 


03535 

777775 


-3 


03536 

205276 


LAC 

<JyP T122B 

03537 

046001 


DAC 

LOrF0 + i 

03540 

205250 


lac 

(LOCF0 

03541 

040010 


DAC 

LI0 

03542 

620106 


JMP^^ 

F6L0C 

03543 

100604 

T122A 

error 


03544 

100223 

TI22B 

CHA I N 


03545 

603532 


JMP 

T122 + 4 

03546 

620010 

T122W 

JMP* 

10 

03547 

626002 


JMP* 

6002 

03550 

003543 

/Test 

T122A 
THaT aUTO 

-INqE^ FROM 

03551 

000123 

T123 

123 


03552 

003574 


T124 


03553 

100537 


TF7 


03554 

100336 


stfn 


03555 

100311 


MOVE 


03556 

003571 


T123W 


03557 

076000 


L0CF7 


03560 

777775 


-3 


03561 

205277 


LAC 

(JmP T123B 

03562 

046001 


DAC 

LOCF0+1 

03563 

205250 


LAC 

(LOCF0 

03564 

040010 


DAC 

L10 

03565 

620107 


JMP* 

F7L0C 

03566 

100604 

T123A 

ERROR 


03567 

100223 

TI23B 

CHAIN 


03570 

603555 


JMP 

T123+4 

03571 

620010 

T123W 

JMP* 

10 

03572 

626002 


JMP* 

6002 

03573 

003566 


T123A 





.EJECT 



/return Instruction to Locfo+i 


/SET LOC10 IN FIELD 0 
/GO TO field 6 

/ERROR. aUTO-INOEX FROM FIELD ^ 

/pointed to field 6 instead of field 0 

/repeat test 
/TEST words 


ieLq 7 References field 0 aNd points to field 0 


/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 7 


/return Instruction to locf0+i 

/SET LOC10 IN field 0. 

/GO TO FIELD 7 

/ERROR. aUTO-INDEX FROM FIELD 7 
/POINTED TO FIELD 7 INSTEAD OF FIELD 0 

/repeat test 

/TEST WORDS 
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/TEST 

that interrupt ErOH field 

1 STOrEs pC3-5 CDrrECTLY 

03574 

000124 

Ti?4 

124 



03575 

003626 


T1?5 



03576 

100336 


STFN 


/SET FIELDS 

03577 

100311 


MOVE 


/TEST WORDS TO FIELD 1 

03600 

003620 


T124W 



03601 

016000 


LOCFl 



0360? 

777772 


-6 



03603 

205300 


LAC 

(JmP T124A 

/sEt Interrupt return 

03604 

040001 


OAC 

1 


03605 

100557 


JMs 

STPLG 

/SEt tty printer flag. 

03606 

620101 


JMP* 

FlLOC 

/GO TO FIELD 1 

03607 

200000 

T124A 

LAC 

0 

/GET CONTENTS OF LOC0 

03610 

5052I5 


AND 

( K70K 

/isolate AC3-5 

03611 

545233 


SAD 

( K10K 

/AC3-5=001? 

03612 

741000 


SKP 


/YEs. 

03613 

100604 


ERRORa 


/NO. error, interrupt from 






/STORED PC3-5 INCORRECTLY 

03614 

100223 


CHAIN 



03615 

603577 


JMP 

T124 + 3 

/REPEAT TEST 

03616 

100604 

T124B 

ERROR 


/FAILED TO 

03617 

603614 


JMP 

.-3 

/INTERRUPT 

03620 

700042 

T124W 

ION 


/TEST WORDS. 

03621 

740000 


NOP 



03622 

740000 


NOP 



03623 

700002 


lOF 



03624 

626005 


JMP* 

6005 


03625 

003616 


T124B 





/Test 

THaT interrupt from field 

2 STORES PC3-5 cORRECTLY. 

03626 

000125 

Ti25 

125 



03627 

003661 


T126 



03630 

100513 


TF2 


/RUN IF FIELD 2 AVAILABLE 

03631 

100336 


STFN 


/SET FIELDS 

03632 

100311 


MOVE 


/TEST WORDS TO FIELD 2 

03633 

003653 


T125W 



03634 

026000 


L0CF2 



03635 

777772 


-6 



03636 

205301 


LAC 

(JmP T125A 

/set Interrupt return 

03637 

040001 


DAC 

1 


03640 

100557 


JMs 

stelg 

/S^T TTY printer FLAG 

03641 

620102 


JMP<» 

F2L0C 

/GO TO FIELD 2. 

03642 

200000 

T125A 

LAC 

0 

/GET CONTENTS OF LOC0 

03643 

505215 


AND 

( K70K 

/ISOLATE AC3-5 

03644 

545230 


SAD 

(K20K 

/AC3-5=0i0? 

03645 

74I000 


SKP 


/YES. 

03646 

100604 


errora 


/NO. error, interrupt from 






/STORED pC3-5 INCORRECTLY. 

03647 

100223 


CHAIN 



03650 

603632 


JMP 

T125+4 

/REPEAT TEST. 

03651 

100604 

Ti?5B 

ERROR 


/FAILED TO interrupt 

03652 

603647 


JMP 

. -3 


03653 

700042 

T125W 

ION 


/TEST WORDS. 

03654 

740000 


NOP 



03655 

740000 


NOP 



03656 

700002 


lOF 
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03657 

626005 


03660 

003651 

/Test 

03661 

000126 

Ti26 

0366? 

00371 4 


03663 

100517 


03664 

100336 


03665 

100311 


03666 

003706 


03667 

036000 


03670 

777772 


03671 

205302 


03672 

040001 


03673 

100557 


03674 

620103 


03675 

200000 

Ti26A 

03676 

505215 


03677 

545226 


03700 

741000 


03701 

100604 


03702 

100223 


03703 

603665 


03704 

100604 

Ti268 

03705 

603702 


03706 

700042 

T126W 

03707 

7 40000 


03710 

740000 


03711 

700002 


03712 

626005 


03713 

003704 

/TEST 

03714 

000127 

T127 

03715 

003747 


03716 

100523 


03717 

100336 


03720 

100311 


03721 

003741 


03722 

046000 


03723 

777772 


03724 

205303 


03725 

040001 


03726 

100557 


03727 

620104 


03730 

200000 

T127A 

03731 

505215 


03732 

545261 


03733 

741000 


03734 

100604 


03735 

100223 


03736 

603720 


03737 

100604 

T127B 

03740 

603735 


03741 

700042 

T127W 


JMP* 6??'5 
T125B 

thaT interrupt EPQH eield 


126 

T127 

TF3 

STFN 

MOVE 

T1?6W 

L0CF3 

-6 


LAC 

(JMP Ti26A 

DAC 

1 

JMs 

STFLG 

JMP* 

F3L0C 

LAC 

0 

AND 

(K70K 

SAD 

SKP 

errora 

chain 

(K30K 

JMP 

ERROR 

T126+4 

JMP 

ION 

NOP 

NOP 

lOF 

. -3 

JMP* 

T126B 

6005 

HaT interrupt FROM 
127 

T130 

TF4 

STFN 

MOVE 

T127W 

LOCF4 

-6 

lac 

(JmP T127A 

DAC 

1 

JMs 

STELG 

JMP* 

F4L0C 

LAC 

0 

AND 

( K70K 

SAD 

SKP 

E R R 0 R A 

CHAIN 

(K40K 

JMP 

ERROR 

T 127 + 4 

JMP 

ION 

.-3 


3 STORES PC3-5 CORREcTLT. 


/RUN IF FIELD 3 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 3 


/SET interrupt RETURN 

/set teleprinter flag. 

/GO TO FIELD 3 
/GET contents OF LOC 0 
/ISOLATE AC3-5 
/AC3-5=0ii? 

/YES. 

/NO. Ef^ROR. interrupt from field 3 

/STORED PC3-5 InCORRECTLY. 

/REPEAT TEST. 

/FAILED TO interrupt 

/TEST words. 


4 STORES PC3-5 CORRECTLY. 


/RUN IF FIELD 4 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 4 


/set Interrupt return 
/set teleprinter flag. 

/GO TO FIELD 4 
/GET CONTENTS OF LOC0 
/ISOLATE AC3-5 
/AC3-5=i00? 

/YES. 

/NO. ePROR. interrupt from field 4 
/stored pC3-5 Incorrectly. 

/REPEAT TEST. 

/FAILED TO interrupt 


/TEST words. 



PAGE 46 


EXM15 


03742 

740000 


03743 

740000 


03744 

700002 


03745 

626005 


03746 

003737 

/TEST 

03747 

000130 

T130 

03750 

004002 


03751 

100527 


03752 

100336 


03753 

100311 


03754 

003774 


03755 

056000 


03756 

777772 


03757 

205304 


03760 

040001 


03761 

100557 


03762 

620105 


03763 

200000 

Ti30A 

03764 

505215 


03765 

545224 


03766 

741000 


03767 

100604 


03770 

100223 


03771 

603753 


03772 

100604 

T130B 

03773 

603770 


03774 

700042 

T130W 

03775 

740000 


03776 

7 40000 


03777 

700002 


04000 

626005 


04001 

003772 

/Test 

04002 

000131 

Tl3l 

04003 

004035 


04004 

100533 


04005 

100336 


04006 

100311 


04007 

004027 


04010 

066000 


04011 

777772 


04012 

205305 


04013 

040001 


04014 

100557 


04015 

620106 


04016 

200000 

1131A 

04017 

505215 


04020 

545222 


04021 

741000 


04022 

100604 


04023 

100223 


04024 

604006 



NOP 

NOP 

lOF 

JMP# 600b 
T127B 

THaT interrupt FROM FI 


130 

T131 

TF5 

STFN 

MOVE 

Ti30W 

L0CF5 

-6 

LAC 

(JmP T130A 

DAC 

1 

JMs 

stflg 

JMP* 

F5L0C 

LAC 

0 

AND 

(K70K 

SAD 

(K50K 

SKP 

errora 

CHAIN 

JMP 

T130+4 

error 

JMP 

.-3 

ION 

NOP 

NOP 

lOF 

JMP* 

6005 

T130B 

that interrupt from 

131 

T132 

TF6 

STFN 

MOVE 

T131W 

L0CF6 

-6 

LAC 

(JmP T131A 

DAC 

1 

JMs 

stflg 

JMP* 

F6L0C 

LAC 

0 

AND 

(K70K 

SAD 

(K60K 

SKP 

errora 

CHAIN 

JMP 

T131 + 4 


5 STORES PC3-5 CORREcTLY. 


/RUN IF FIELD 5 AVAHLABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 5. 


/sEt Interrupt return 

/sEt teleprinter flag. 

/GO TO field 5 
/GET CONTENTS OF LOC0 
/ISOLATE AC3-5 
/AC3-5=101? 

/YES. 

/NO. error, interrupt from FIELD 5 
/STORED PC3-5 INCORRECTLY 

/REPEAT TEST. 

/FAILED TO interrupt 

/TEST WORDS. 


6 STORES PC3-5 CORRECTLY. 


/RUN IF FIELD 6 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 6 


/set Interrupt return 
/sEt teleprinter flag 

/GO TO FIELD 6 
/GET contents OF LOC0 
/ISOLATE AC3-5 
/AC3-5=ii0? 

/YES. 

/NO. error, interrupt from field 6 

/STORED PC3-5 INCORRECTLY. 


/REPEAT TEST. 
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ei402‘5 

100604 

Tim- 

ERROR 


/FAILED TO interrupt 

04026 

604023 


JM^ 

. - 


04027 

700042 

T 1 3 1 W 

ION 


/TEST WORDS, 

04030 

740000 


NOP 



04031 

740000 


NOP 



04032 

700002 


lOE 



04033 

626005 


JMP<, 

6005 


04034 

004025 


T131B 





/Test 

THaT INI 

errupt from e: 

IELD 7 STORES Pc 3-5 CORREcTLY 

04035 

000132 

T132 

132 



04036 

004070 


T133 



04037 

100537 


TE7 


/run iP EiElD 7 availaPlP 

04040 

100336 


STEN 


/SET EIELDS- 

04041 

100311 


MOVE 


/TEST WORDS TO FIELD 7 

04042 

004062 


T132W 



04043 

076000 


L0CE7 



04044 

777772 


-6 



04045 

205306 


lac 

(JmP T132A 

/sEt Interrupt return 

04046 

040001 


DAC 

1 


04047 

100557 


JMs 

stelg 

/sEt teleprinter flag. 

04050 

620107 


JMP* 

E 7 LOC 

/GO to field 7 

04051 

200000 

Ti32A 

LAC 

0 

/GET C(LOC0) 

04052 

505215 


AND 

( K70K 

/isolate AC 3-5 

04053 

545215 


SAD 

( K70K 

/AC3-5=111? 

04054 

741000 


SKP 


/YES. 

04055 

100604 


errora 


/NO. Error. Interrupt from field i 






/stored pc 3-5 INCORRECTLY. 

04056 

100223 


chain 



04057 

604041 


JMP 

T132 + 4 

/REPEAT TEST 

04060 

100604 

Ti32B 

ERROR 


/FAILED TO INTERRUPT 

04061 

604056 


JMP 

. -3 


04062 

700042 

T132W 

ION 


/TEST WORDS 

04063 

740000 


NOP 



04064 

740000 


NOP 



04065 

700002 


lOF 



04066 

626005 


JMP* 

6005 


04067 

004060 


T132B 






.EJECT 
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/9 mode.tESj xcj ^ of Lac iNi locfi (Data fetcheh in field i also) 


P)4070 

000133 

T133 

133 





04071 

004105 


T134 





0407? 

100336 


STFN 


/SET FIELDS 



04073 

205307 


LAC 

(LAC 16000 

/TEST WORD TO LOCF 1 



04074 

060101 


DAC* 

FiLOC 




04075 

750000 


CLA 





04076 

707764 


EBA 





04077 

420101 


XCj* 

FlLOC 

/XCt* of lac At LOCFl 



04100 

545307 


SAD 

(LAC 16000 

/SKIP IF AC N0T=(LAC 16000 



04101 

741000 


SKP 


/OK . 



0410? 

100604 


errora 


/ERROR. XcT* OF LAC IN LOCFi 

WHILE 







/IN 9 mode did not Reference 

field 

1 

04103 

100223 


CHA I N 





04104 

604073 


JMP 

T133+3 

/REPEAT TEST. 





/9 mode 

Test 

xcT« OF Lac in 

LOCF 2 (daTa fetched in field 2 

ALSO) 


04105 

000134 

TI 34 

134 





04106 

004123 


T135 





04107 

100513 


TF 2 


/RUN iF Field 2 available 



04110 

100336 


STFN 


/set fields 



04111 

205247 


LAC 

(LAC 6000 

/TEST WORD TO L0CF2 



04112 

060102 


DAC* 

F2L0C 




04113 

750000 


CLA 





04114 

707764 


EBA 


/ASSERT 9 MODE 



04115 

420102 


XCT* 

F2L0C 

/XCT* OF LAC AT LOCF? 



04116 

545247 


SAD 

(LAC 6000 

/SKIP IF AC N0T=(LAC 

6000 


04 II 7 

741000 


SKP 


/OK . 



04120 

100604 


ERRORa 


/error. XcT* Of LaC in L0cF2 

While 







/IN 9 mode did NOt reference 

field 

2 

04121 

100223 


CHAIN 





04122 

604111 


JMP 

T134 + 4 

/REPEAT TEST 





/9 mode, 

. test 

xcT* OF Lac in 

LOCF 3 . (data fetched in FIELD 3 

ALSO) . 


04I23 

0001 35 

TI35 

I 35 





04124 

004141 


T136 





04125 

100517 


TF3 


/RUN jF FjElD 3 available 



04126 

100336 


STFN 


/sFt fields 



04127 

205307 


LAC 

(LAC 16000 

/TEST WORD TO L0CF3 



04130 

060103 


DAC* 

F 3 LOC 




04131 

750000 


CLA 





04132 

707764 


EBA 


/ASSERT 9 MODE 



04133 

420103 


XCT, 

F3L0C 

/XCT* OF LAC AT L0CF3 



04134 

545307 


SAD 

(LAC 16000 

/SKIP IF AC NOT=(LAC i6000 



04 I 35 

74 I 000 


SKP 


/OK . 



04136 

100604 


error^ 


/EBROR. XcT* Of L^C in L0cF3 

WHILE 







/IN 9 mqde did Not reference 

field 

3 

04137 

100223 


CHAIN 





04140 

604127 


JMP 

T135+4 

/repeat test 





/9 mode, 

. Test 

XcT* OF LaC in 

L0cF4 (DaTa fetched in field 4 

ALSO) . 


04141 

000136 

T136 

136 





04142 

004157 


T137 





04143 

100523 


TF4 


/RUN iF Field 4 available 



04144 

100336 


STFN 


/set FIELDS 



04145 

205247 


LAC 

(LAC 6000 

/TEST WORD TO LOCF4 



04146 

060104 


DAC* 

F4L0C 




04147 

750000 


CLA 
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04 t5f1 

707764 


EBA 


/ASSERT 9 MODE 



04151 

420104 


XCT^^ 

F4L0C 

/XCTa OF LAC AT LOCFA 



0415? 

545247 


SAO 

(LAC 6000 

/SKIP IF AC NOT r (LAC 6000 


04153 

741000 


SKP 


/OK . 



0 4154 

100604 


ERRORa 


/error. xcT« of Lac in LncF4 

WHILE 







/IN 9 Mope did nqt reference 

FIELD 

4 . 

04155 

100223 


CHAIN 





04156 

604145 


JMP 

T136+4 

/REPEAT TEST 





/9 HOOF, 

. tfst 

xcT^> OF Lac in 

LOCF 5 (DaTa IN field 5 ALSO). 



04i57 

000137 

Ti37 

137 





04160 

004175 


T 1 4 0 





04161 

100527 


TF5 


/RUN IF FIELD 5 AVAILABLE 



0416? 

100336 


STFN 


/SET FIELDS 



04163 

205307 


LAC 

(LAC 16000 

/TEST WORD TO LOCF 5 



04164 

060105 


DAC* 

F5L0C 




04165 

750000 


CLA 





04166 

707764 


EBA 


/ASSERT 9 MODE 



04167 

420105 


XCT* 

F5L0C 

/XCT» OF LAC AT LOCF 5 



04170 

545307 


SAO 

(Lac 16000 

/SKIP IF AC NOT = (LAC 16000 



04171 

741000 


SKP 


/OK . 



04172 

100604 


ERRORa 


/error. xcT* Of Lac in locf5 

WHILE 







/IN 9 mode DID not REFERENCE 

FIELD 

5. 

04173 

100223 


CHAIN 





04174 

604163 


JMP 

T137>4 

/REPEAT TEST 





/9 mode 

. test 

XcT* OF LAC IN 

L0CF6 (OaTa in FIELD 6 ALSO) 



04175 

000140 

T140 

140 





04176 

004213 


T141 





04177 

100533 


TF6 


/RUN IF field 6 available 



04200 

100336 


STFN 


/SET FIELDS. 



04201 

205247 


LAC 

(LAC 6000 

/TEST WORD TO L0CF6 



04202 

060106 


DAC* 

F6L0C 




04203 

750000 


CLA 





04204 

707764 


EBA 


/assert 9 MODE 



04205 

420106 


XCT* 

F6L0C 

/XCT<» OF LAC IN L0CF6 



04206 

545247 


SAO 

(LAC 6000 

/SKIP IF AC NOT=(LAC 

6000 


04207 

741000 


SKP 


/OK 



04210 

100604 


ERRORa 


/error. xct« of Lac at locf6 

WHILE 







/IN 9 Mode did not reference 

FIELD 

6 . 

04211 

100223 


chain 





04212 

604201 


JMP 

T 140+4 

/repeat test. 





/9 mode 

. test 

XcT* OF LAC IN 

L0cF7 (DaTa in field 7 ALSO). 



04?l3 

000141 

T141 

141 





04214 

004231 


T142 





04215 

100537 


TF7 


/RUN lE field 7 AVAILABLE 



04216 

100336 


sten 


/SEt fields 



04217 

205307 


LAC 

(LAC 16000 

/TEST WORD TO LOCF 7 



04220 

060107 


DAC» 

F7L0C 




04221 

750000 


CLA 





0422? 

707764 


EBA 


/ASSERT 9 MODE. 



04223 

420107 


xct* 

F7L0C 

/XCT» OF LAC IN L0CF7 



04224 

545307 


SAO 

(LAC 15000 

/SKIP IF AC NOT=(LAC 16000 



04225 

741000 


SKP 


/OK. 



04226 

100604 


ERRORa 


/error. xcT« Of Lac in locf7 

While 







/IN 9 Mode did nqt reference 

FIELD 

7 . 

04227 

100223 


chain 
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04?30 

604217 

JM° Ti4i+4 

.EJECT 

/REPEAT TEST 



PAGr EXM15 




/9 mode 

. test 

XcT* OF JMP 

04231 

000142 

T142 

142 


04232 

004252 


T143 


04233 

100336 


STFN 


04234 

1 0031 1 


MOVE 


04235 

004250 


T 142W 


04236 

016000 


LOCFl 


04237 

777776 


-2 


04240 

205310 


lac 

( T142B 

04241 

046001 


DAC 

LOCF0+1 

04242 

707764 


EBA 


04243 

420101 


XCT* 

ElLOC 

04244 

100223 

Ti42A 

CHAIN 


04245 

604234 


JMP 

T142>3 

04 24 6 

100604 

Tl42e 

ERROR 


04247 

604244 


JMP 

. 

04250 

636001 

T142W 

JMP* 

16001 

04251 

004244 


T142A 




/9 mode, 

. TEST 

XCT* OF JMP. 

04252 

000143 

Ti43 

143 


04253 

004274 


Ti44 


04254 

100513 


TF2 


04255 

100336 


STFN 


04256 

100311 


MOVE 


04257 

004272 


T143W 


04260 

026000 


L0CF2 


04261 

777776 


-2 


04262 

205311 


lac 

( T143B 

04263 

046001 


DAC 

LOCF0+1 

04264 

707764 


EBA 


04265 

420102 


XCT* 

F 2 LOC 

04266 

100223 

T143A 

CHAIN 


04267 

604256 


JMP 

T143+4 

04270 

100604 

Ti43B 

ERROR 


04271 

604266 


JMP 

. -3 

04272 

626001 

T143W 

JMP* 

6001 

04273 

004266 


T143A 




/9 MODE 

. TEST 

XCT* OF JMP 

04274 

000144 

T144 

144 


04275 

004316 


TI45 


04276 

100517 


TF3 


04277 

100336 


STFN 


04300 

100311 


MOVE 


04301 

004314 


T144W 


04302 

036000 


L0CF3 


04303 

777776 


-2 


04304 

205312 


lac 

( T144B 

04305 

046001 


DAC 

LOCF0+1 

04306 

707764 


EBA 


04307 

420103 


XCT* 

F3L0C 

04310 

100223 

T 1 4 4 A 

CHAIN 


04311 

604300 


JMP 

T144+4 

04312 

100604 

Ti44B 

ERROR 


04313 

604310 


JMP 

.-3 

04314 

636001 

T144W 

JMP* 

16001 


LOCFl (JUMP TO field 0) 


/SET FIELDS 

/TEST WORDS TO FIELD 1 


/set trap 

/POINTER IN FIELD 0 
/assert 9 mode 

/XCT* OF JMP, at LOCFl 
/REPEAT TEST 

/ERROR. JMP* 16001 AT LOCFl TOOK ITS 

>^inoirect pointer from field 0 instead Of FIeLd I 

/TEST WORDS 

L0CF2 (JUMPS TO FIELD 0 ) 


/RUN IF FIELD 2 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 2 


/SET TRAP POINTER 
/IN FIELD 0 
/ASSERT 9 MODE 
/XCT* OF JMP* at L0CF2 

/REPEAT TEST 

/ERROR. JMP* 6001 AT LOCF2 TOOK ITS 

/indirect pointer from field 0 instead OF field 2 
/test words 

L0CF3 (JUMPS TO FIELD 0) 


/RUN IF FIELD 3 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 3 


/set trap pointer 

/IN FIELD 0 

/ASSERT 9 MODE 

/XCT* OF JMP* at LOCF3 

/REPEAT TEST 

/ERROR. JMP* 16001 AT LOCF 3 TOOK ITS 

/indirect pointer FROM FIELQ 0 INSTEAD OF FIELD 3 

/TEST WORDS 
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04315 

004310 


Ti44A 





/9 mode 

. TfST 

XcT* OF JMP* 

AT LOCF4 (JUMPS TO FIELD 0) 

04316 

000145 

Ti45 

145 



04317 

004340 


T146 



04320 

100523 


TF4 


/RUN IF FIELD 4 AVAILABLE 

04321 

100336 


stfn 


/SET FIELDS. 

04322 

100311 


MOVE 


/TEST WORDS TO FIELD 4 

04323 

004336 


Ti45W 



04324 

046000 


L0CF4 



04325 

777776 


-2 



04326 

205313 


lac 

( T145B 

/SET TRAP pointer 

04327 

046001 


DAC 

L OC F 0 L 

/IN FIELD 0 

04330 

707764 


EBA 


/assert q mode 

04331 

420104 


XCT* 

F 4 LOC 

/XCT* OF JWP* aT LOCF 4 

04332 

100223 

T 145A 

CHAIN 



04333 

604322 


JMP 

T145+4 

/REPEAT TEST 

04334 

100604 

Ti45B 

error 


/ERROR. JMP* 6001 AT LOCF 4 took ITS 

04335 

604332 


JMP 

. -3 

XINqIRECT POINTER FROM FIELd 0 INSTEAD 

04336 

626001 

T145W 

JMP* 

6001 

/TEST WORDS 

04337 

004332 


T145A 




/9 MODE. TEST XCT* OF JMP* AT LOCFS (JUMPS TO FIELD 0) 


04340 

000146 

T146 

146 





04341 

004362 


T14 7 





04342 

100527 


TF5 


/RUN IF FIELD 5 AVAILABLE 



04343 

100336 


STFN 


/SET FIELDS 



04344 

100311 


MOVE 


/TEST WORDS TO FIELD 5 



04345 

004360 


T146W 





04346 

056000 


L0CF5 





04347 

777776 


-2 





04350 

205314 


lac 

{ T146B 

/set TRAP POINTER 



04351 

046001 


DAC 

LOCF0+1 

/IN FIELD 0 



0435? 

707764 


EBA 


/assert 9 mode 



04353 

420105 


XCT* 

F5L0C 

/XCT* OF JMP* at L0CF5 



04354 

100223 

T 146A 

CHAIN 





04355 

604344 


JMP 

T146+4 

/REPEAT TEST 



04356 

100604 

Ti46B 

ERROR 


/ERROR, JMP* 16001 AT L0CF5 

TOOK ITS 

04357 

604354 


JMP 

. -3 

/indirect pointer FROM FIELD 

0 

INSTEAD 

04360 

636001 

T146W 

JMP* 

16001 

/Test words 



04361 

004354 


T146A 







/9 MODE 

• tEst 

XCt* OF JMP* 

At LOCF 6 (JuMPs tO field 0 ) 



04362 

000147 

Ti47 

147 





04363 

004404 


T 150 





04364 

100533 


TF6 


/RUN IF FIELD 6 AVAILABLE 



04365 

100336 


STFN 


/SET FIELDS 



04366 

10031 1 


MOVE 


/TEST WORDS TO FIELD 6 



04367 

004402 


T 147W 





04370 

066000 


L0CF6 





04371 

777776 


-2 





0437? 

205315 


lac 

(T147B 

/set trap POINTER 



04373 

046001 


DAC 

LOCF0+1 

/IN FIELD 0 



04374 

707764 


EBA 


/ASSERT 9 MODE 



04375 

420106 


XCT* 

F6L0C 

/XCT* OF JMP* at LOCE6 



04376 

100223 

Ti47A 

CHAIN 





04377 

604366 


JMP 

T 147+4 

/REPEAT TEST 



04400 

100604 

Ti478 

ERROR 


/ERROR. JMP* 6001 AT L0CF6 TOOK 

ITS 
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EXM15 


5^4401 60'’376 

04402 626001 

04403 004376 

04404 000150 

04405 004426 

04406 100537 

04407 100336 

04410 100311 

04411 004424 

04412 076000 

04413 777776 

04414 205316 

04415 046001 

04416 707764 

04417 420107 

04420 100223 

04421 604410 

04422 100604 

04423 604420 

04424 636001 

04425 004420 


JMP 

T147W JMP* 
T147A 

/9 MODE, test 

T i50 l50 

T151 
TE7 
STFN 
MOVE 
T150W 
L0CF7 
-2 
lac 
OAC 
EBA 
XCT* 

Ti50A CHAIN 
JMP 

Ti508 error 
JMP 

T150W JMP* 
T150A 
.EJECT 


. -3 
6 001 

XCT* OF JMP* AT 


( T1508 
LOCF0+1 

F7L0C 

Ti50 + 4 

. 

16001 


/indirect pointer from field 0 instead of field 6. 

/TEST WORDS 

LOCF7 (JUMPS TO FIELH 0) 


/RUN IF FIELD 7 AVaILaPLF 
/SET FIELDS 

/TEST WORDS TO FIELD 7 


/set trap pointer 
/IN FIELD 0 
/assert 9 MODE 
/XCT* OF JMP* at LOCF7 

/REPEAT TEST 

/ERROR. JMP* 16001 aT L0CF7 TOOK ITS 

/indirect pointer from field 0 instead of field 1 , 
/test words. 
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/9 mode. 

Test 

THaT OaTa 

04426 

000151 

T151 

151 


04427 

004443 


T152 


04430 

100336 


STEN 


04431 

205236 


LAC 

(-1 

04432 

060101 


DAC* 

FlLOC 

04433 

750000 


CLA 


04434 

707764 


EBA 


04435 

216000 


LAC 

16000 

04436 

545236 


SAD 

(-1 

04437 

741000 


SKP 


04440 

100604 


ERPORa 


04441 

100223 


CHAIN 


04442 

604431 


jmp 

T151+3 



/9 mode. 

test 

THaT OaTa 

04443 

000152 

T152 

152 


04444 

004466 


T153 


04445 

100336 


STEN 


04446 

205236 


LAC 

(-1 

04447 

046000 


DAC 

LOCF0 

04450 

100311 


MOVE 


04451 

004463 


T152W 


04452 

016000 


LOCFl 


04453 

777775 


-3 


04454 

707764 


EBA 


04455 

620101 


JMPs» 

FlLOC 

04456 

545236 

Ti52A 

SAD 

(-1 

04457 

741000 


SKP 


04460 

100604 


errora 


04461 

100223 


CHAIN 


04462 

604446 


JMP 

T152 + 3 

04463 

206000 

Ti52W 

LAC 

6000 

04464 

636002 


JMP* 

16002 

04465 

004456 


Ti52A 




/9 mode. 

TEST 

that oaTa 

04466 

000I53 

TI53 

I53 


04467 

004512 


T154 


04470 

100517 


TE3 


04471 

100336 


stfn 


04472 

205236 


LAC 

(-1 

04473' 

060103 


DAC* 

F3LOC 

04474 

100311 


MOVE 


04475 

004507 


T153W 


04476 

026000 


L0CF2 


04477 

777775 


-3 


04500 

707764 


EBA 


04501 

620102 


JMP* 

F2L0C 

04502 

545236 

Ti53A 

SAD 

(-1 

04503 

741000 


SKP 


04504 

100604 


errora 


04505 

100223 


chain 


04506 

604472 


JMP 

T153+4 


N riELD 1 can be accessed DIPECTLY FROM FIELD 0 


/SET FIELDS 
/-I TO LOCEl 


/assert 9 mode 

/GET caOCFi) directly 
/AC=-1? 

/YES. OK. 

/NO. ePPOR. DIPEcT ACCESS To LOcFl 
/DID not fetch correct DATA. 

/REPEAT TEST. 

N field 0 can be accessed directly from field 1. 


/-I TO LOCF0 

/TEST words to FIELD 1 


/assert 9 mode, 

/GO tO field 1 
/SKIP IE AC not 1. 

/OK. 

/ERROR, direct access TO LOCFo FROM 
/FIELD 1 fetched INCORRECT DaTa 

/repeat test 

/TEST WORDS 


IN field 3 CAN BE ACCESSED DIRECTLY FROM FIELD 2 


/run iF fjEld 3 available 

/sEt FIELDS 
/-I TO LOCF3 

/TEST WORDS TO FIELD 2 


/ASSERT 9 mode 
/GO TO FIELD 2 
/AC=l? 

/YES. OK. 

/NO. error, direct access to L0CF3 FROM 
/FIELD 2 fetched INCORRECT OATa 


/repeat test. 
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04507 

216000 

T153W 

LAC 

160 00 

04510 

626002 


JMP« 

6002 

04511 

004502 


T153A 




/9 mode, 

, tESt 

tHat Oat 

0451? 

000154 

Ti54 

154 


04513 

004536 


T155 


04514 

100517 


TE3 


04515 

100336 


STFN 


04516 

205236 


LAC 

(-1 

04517 

060102 


DAC* 

F2L0C 

04520 

100311 


MOVE 


04521 

004533 


T154W 


04522 

036000 


LOCF3 


04523 

777775 


-3 


04524 

707764 


EBA 


04525 

620103 


JMP* 

F3L0C 

04526 

545236 

Ti54A 

SAD 

(-1 

04527 

741000 


SKP 


04530 

100604 


ERRORa 


04531 

100223 


chain 


04532 

604516 


JMP 

T154+4 

04533 

206000 

T154W 

LAC 

6000 

04534 

636002 


JMP* 

16002 

04535 

004526 


T154A 




/9 mode, 

. test 

THaT oaT 

04536 

000155 

T155 

155 


04537 

004562 


T156 


04540 

100527 


TF5 


04541 

100336 


STFN 


04542 

205236 


lac 

(-1 

04543 

060105 


DAC* 

F5L0C 

04544 

100311 


MOVE 


04545 

004557 


T155W 


04546 

046000 


L0CF4 


04547 

777775 


-3 


04550 

707764 


EBA 


04551 

620104 


JMP* 

F4L0C 

04552 

545236 

T155A 

SAD 

(-1 

04553 

741000 


SKP 


04554 

100604 


ERRORa 


04555 

100223 


chain 


04556 

604542 


JMP 

T155+4 

04557 

216000 

T155W 

LAC 

16000 

04560 

626002 


JMP* 

6002 

04561 

004552 


T155A 




/9 MODE 

. test 

that DaT 

0456? 

000156 

Tl56 

l56 


04563 

004606 


T157 


04564 

100527 


TF5 


04565 

100336 


STFN 


04566 

205236 


LAC 

(-1 

04567 

060104 


DAC* 

F 4 LOC 

04570 

100311 


MOVE 



/test words. 


IN field 2 can be ACCESSED OIRECtLy FROM FIELD 3 


/RUN IF FIELD 3 AVAILABLE 
/SET FIELDS 
/-I TO LOCF2 

/TEST WORDS TO FIELD 3 


/assert 9 mode 
/GO TO FIELD 3 
/AC=-1? 

/YES. OK. 

/NO. error, direct ACCESS TQ L0cF2 FROM 
/FIELD 3 fetched INCORRECT DaTa 

/REPEAT test. 

/tEst words. 


IN FIELD 5 CAN 8F ACCESSED DIRECTLY FROM FIELD 4. 


/RUN lE field 5 AVAILABLE 

/set fields 

/-I TO L0CF5 

/TEST WORDS TO FIELD 4 


/assert 9 mode 

/GO TO FIELD 4 
/AC=-i? 

/YES. OK. 

/NO. error, direct access to L0CF5 FROM 
/FIELD A FETCHED INCORRECT DATA. 

/repeat test. 

/tEst words. 


IN FIELD 4 can 0F DIRECTLY ACCESSED FROM FIELD 5 


/run if fiEld 5 available 
/sEt fields 

/-I TO L0CF4 


/TEST WORDS TO FIELD 5 
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04571 

004603 


T156W 


0457? 

056000 


L0CF5 


04573 

777775 


-3 


0457 4 

707764 


eba 


04575 

620105 


JMPe 

F5L0C 

04576 

545236 

T 156A 

SAD 

(-1 

04577 

741000 


SKP 


04600 

100604 


ERRORa 


04601 

100223 


CHAIN 


04602 

604566 


JMP 

T 156+4 

04603 

206000 

Ti56W 

LAC 

6000 

04 604 

636002 


JMP, 

16002 

04605 

004576 


T 156A 




/9 mode 

Test 

THaT OaT 

04606 

000157 

Ti57 

157 


04607 

004632 


Ti60 


04610 

100537 


TF7 


04611 

100336 


STFN 


04612 

205236 


LAC 

(-1 

04613 

060107 


dac» 

F7LOC 

04614 

100311 


MOVE 


04615 

004627 


T157W 


04616 

066000 


L0CF6 


04617 

777775 


-3 


04620 

707764 


EBA 


04621 

620106 


JMP* 

F6L0C 

04622 

545236 

T157A 

SAO 

(-1 

04623 

741000 


SKP 


04624 

100604 


ERRORa 


04625 

100223 


CHAIN 


04626 

604612 


JMP 

T157+4 

04627 

216000 

T157W 

LAC 

16000 

04630 

626002 


JMP* 

6002 

04631 

004622 


T157A 




/9 mode 

. Test 

THaT oaT 

04632 

000160 

Tl60 

l60 


04633 

004656 


T161 


04634 

100537 


Tr7 


04635 

100336 


STFN 


04636 

205236 


lac 

(-1 

04637 

060106 


DAC* 

r6L0C 

04640 

100311 


MOVE 


04 641 

004653 


T160W 


04642 

076000 


L0CF7 


04643 

777775 


-3 


04644 

707764 


EBA 


04645 

620107 


JMP* 

F7LOr 

04646 

545236 

Ti60A 

SAO 

(-1 

04647 

741000 


SKP 


04650 

100604 


ERRORa 


04651 

100223 


CHAIN 


04652 

604636 


JMP 

Ti60+4 


/ASSERT 9 mode 
/GO jO FIELD 5 

/ACr-17 

/YES. OK. 

/NO. error, direct access to L0CF4 FROM 
/FIELD 5 fetched INCORRECT DaTa. 

/REPEAT TEST. 

/TEST WORDS 


IN FIELD 7 can BF ACCESSED DIRECTLY FROM FIELD 6 


/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 
/-I TO L0CF7 

/TEST WORDS TO FIELD 6 


/assert 9 MODE 
/GO TO FIELD 6 
/AC=-l? 

/YES. OK. 

/NO. error, direct access to locf7 from 
/FiElD 6 fetched incorrect data. 

/REPEAT TEST. 

/TEST WORDS 


IN field 6 CAN BE ACCESSED DIRECTLY FROM FIELD 7. 


/run jF fjeld 7 available 
/sEt FIELDS 
/-I TO L0CF6 

/TEST WORDS TO FIELD 7 


/assert 9 mode 
/GO TO FIELD 7 
/AC=-1? 

/YES. OK. 

/NO. error, direct access to L0CF6 FROM 
/FIELD 7 fetched INCORRECT DATa. 


/REPEAT TEST 
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04653 

206000 

Ti60W 

LAC 

6000 

/TEST WORDS 

P'4654 

636002 


JMP* 

16002 


04655 

004646 


T160A 






.EJECT 
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/optional API 

test 




/test 

THaT aPI 

Can bpEaK from 

FIELD 1 and STORES Pc 3-5 rORRFCTLY 

04656 

000161 

T161 

161 



PI4657 

004715 


T162 



0 4 6 6 f 

100543 


ckap I 


/RUN iP API available 

04661 

100336 


stpn 


/set fields 

0466? 

100311 


MOVE 


/TEST WORDS TO FIELD 1 

04663 

004707 


A T 0 W 



0 4 664 

016000 


LOGFl 



04665 

77777? 


-6 



0 4 6 6 6 

205317 


lac 

(JmS At 0 A 

/Break HArgDLER to LOG40 

04667 

040040 


DAC 

L40 


04670 

144673 


n^M 

A T.^'A 


04671 

205320 


LAC 

( Kii04K 

/GET API BREAK REQUEST DATA 

0467? 

620101 


JMP« 

FiLOC 

/GO TO field 1 

04673 

000000 

A T 0 A 

0 



0 4 6 74 

204673 


Lac 

aT 0 A 

/GET JMS INFO 

04675 

505215 


ANn 

( K70K 

/ROT aTE AC 3“5 

04676 

545233 


SAP 

( K 1 0 K 

/AC3-5=001? 

04677 

741000 


SKP 


/YES, 

04700 

100604 


ERRORA 


/NO. error. PC3-5 incorrectly 






/STORED. 

04701 

703304 


DBK 



04702 

703302 


CAE 



04703 

100223 


CHAIN 



04704 

604662 


JHP 

TI 6 I +4 

/REPEAT test 

04705 

100604 

AT 0 B 

ERROR 


/API FAILED TO BREAK 

04706 

604701 


JMP 

. “5 


04707 

705504 

AT0W 

I $4 


/TEST Words 

04710 

740000 


NOP 



04711 

740000 


NOP 



0471? 

740000 


NOP 



04713 

626005 


J MP » 

6005 


04714 

004705 


AT0B 





/test 

that API 

can break from 

FIELD 2 and STORES Pc 3-5 CORRECTLY 

047 I 5 

0001 6 2 

Tl 62 

l 62 



04716 

004755 


T163 



04717 

100543 


Ckapi 


/RUN jF APj available 

04720 

100513 


TF 2 


/RyN IF FIELD 2 AVAILABLE 

04721 

100336 


STFN 


/SET FIELDS 

04722 

100311 


MOVE 


/TEST WORDS TO FIELD 2 

04723 

004747 


ATlW 



04724 

026000 


LOCF? 



04725 

777772 


-6 



04726 

205321 


lac 

(JmS ATIA 

/Break hanOlEr to loU40 

04727 

040040 


DAC 

L40 


04730 

144733 


0 ?M 

aTi A 

/ 2 ERO ATiA 

04731 

205320 


Lac 

{ K434K 

/GET API BREAK REQUEST DATA. 

0473 ? 

620102 


JMP» 

FpLOC 

/GO TO field 2 

04733 

000000 

A T 1 A 

0 



04734 

204733 


LAC 

A Tl A 

/GET JMS INFO 

04735 

505215 


AND 

( K70K 

/ISOLATE AC 3-5 

04736 

545230 


Sad 

( K 20 ^ 

/AC3-5=010? 

04737 

74 I 000 


SKP 


/YES. 
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«4740 

10060'’ 


errora 


/NO. error. PC 3-5 incorrectly STORED 

04741 

703304 


nB'< 



0474? 

703302 


CAE 



04743 

100223 


CHA Inj 



0 4 7 4 4 

604722 


JMP 

T l62-*-5 

/REPEAT TEST 

04745 

100604 

aTib 

error 


/API FAILEO TO BREAK 

04746 

604741 


JMP 

. 


04747 

705504 

A T 1 W 

ISA 


/TEST WORDS 

04750 

740000 


NOP 



04751 

740000 


NOP 



0475? 

740000 


NOP 



04753 

626005 


JMP* 

6 005 


0 4 754 

004745 


ATlB 





/test 

THaT api 

CaM BREaK from 

field 3 and stores p^ 3 -=; correctly. 

04755 

000163 

T163 

163 



04756 

005015 


T164 



04757 

100543 


ckapi 


/RUN IF API AVAILABLE 

04760 

100517 


TE3 


/RUN IF FIFLD 3 AVAILABLE 

04761 

100336 


STEN 


/SET fields 

04762 

100311 


MOVE 


/TEST WORDS TO FIELD 3 

04763 

005007 


AT?W 



04764 

036000 


L0CF3 



04765 

777772 


-6 



04766 

205322 


lac 

(JmS AT 2 A 

/Break hanDlEr to loC40 

04767 

040040 


DAC 

L40 


04770 

144773 


D2M 

AT2A 

/2ERO AT2A 

04771 

205320 


lac 

( K404K 

/GET API break request DATA 

04772 

620103 


JMP* 

F3L0C 

/GO TO FIELD 3 

04773 

000000 

AT2A 

0 



04774 

204773 


LAC 

AT 2 A 

/GET JMS INFO 

04775 

505215 


AND 

( K70K 

/ISOLATE AC 3-5 

04776 

545226 


SAD 

( K30K 

/AC3-5=011? 

04777 

741000 


SKP 


/YES. 

05000 

100604 


error A 


/NO. error. Pc3-5 incorrectly STORED* 

05001 

703304 


dbk 



05002 

703302 


CAE 



05003 

100223 


chain 



05004 

604762 


JMP 

T163-*-5 

/REPEAT TEST. 

05005 

100604 

AT 2 B 

ERROR 


/API FAILEO TO BREAK 

05006 

605001 


JMP 

. - 5 


05007 

705504 

AT?W 

ISA 


/TEST WORDS 

05010 

740000 


NOP 



05011 

740000 


NOP 



0501? 

740000 


NOP 



05013 

626005 


JMP* 

6005 


05014 

005005 


AT 2 B 





/TEST 

that API 

CAN break FROM 

FIELD 4 AND STORES PC 3-5 CORRECTLY 

050 I 5 

000164 

T164 

164 



05016 

005055 


T165 



05017 

100543 


Ckapi 


/RUN iF API AVAilAPlP 

05020 

100523 


TF4 


/Run if field 4 available 

05021 

100336 


STPN 


/SET FIELDS 

05022 

100311 


MOVE 


/Test words to field ^ 

05023 

005047 


AT3W 



05024 

046000 


LOCF4 
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05025 

777772 


-6 



05026 

205323 


1_AC 

(JmS AT3A 

/Break HAf^jCLERS To loC40 

05027 

040040 


DAC 

L 40 


05030 

145033 



A T 3 A 

/^LRO AT 3 A 

05031 

205320 


lac 

( K 404K 

/GET API break RE0L*EST OaTa. 

0503 ? 

620104 


JMP» 

F 4 LOC 

/GO TO field 4 

05033 

000000 

AT 3 A 

0 



05034 

205033 


LAC 

AT3A 

/GET JMS INFO 

05035 

505215 


ANC 

( K70K 

/ISOLATE AC 3-'^ 

05036 

545261 


SAC 

( K40K 

/AC3-5=i00? 

05037 

74 I 000 


SKP 


/YES . 

05040 

100604 


eRPQRa 


/NO. error. Pc 3-5 INC'CRRECTlY stored 

0 50 41 

703304 


dbk 



05042 

703302 


CAP 



05043 

100223 


CHA I N 



05044 

605022 


JMP 

T 164+5 

/REPEAT TEST 

05045 

100604 

AT 3 B 

ERROR 


/API FAILEO TO pREAK 

05046 

605041 


JMP 

. -5 


05047 

705504 

AT 3 W 

ISA 


/TEST WORDS 

05050 

740000 


NOP 



05051 

740000 


NOP 



05052 

740000 


NOP 



05053 

626005 


JMP« 

6005 


05054 

005045 


AT3B 





/TEST 

that API 

break FROM 

FIELD 5 STORES PC 3-5 CORRECTLY. 

05055 

000165 

T165 

165 



05056 

005115 


TI 66 



05057 

100543 


ckapi 


/RUN IF API available 

05060 

100527 


tec; 


/RUN IF FIELD 5 AVAILABLE 

05061 

100336 


STFN 


/SET FIELDS 

05062 

100311 


MOVE 


/TEST WORDS TO FIELD 5 

05063 

005107 


AT4W 



05064 

056000 


L0CF5 



05065 

777772 


-6 



05066 

205324 


l_AC 

(JmS AT4A 

/BREAK HA^DlER To LOC40 

05067 

040040 


DAC 

L 40 


05070 

1 45073 


D 2 M 

AT4A 

/ 2 ERO AT4A 

05071 

205320 


LAC 

( K404K 

/GET API BREAK REQUEST DATA 

0507 p 

620105 


JMP* 

F 5 LOC 

/GO TO FIELD 5 

05073 

000000 

AT 4 A 

0 



05074 

205073 


LAC 

AT4A 

/GET JMS INFO 

05075 

505215 


AND 

( K70K 

/ISOLATE AC 3-5 

05076 

545224 


SAC 

( KH0K 

/AC3-5=i0i? 

05077 

74 I 000 


SKP 


/YES. 

05100 

100604 


E R R 0 R 4 


/NO. error. Pc3-5 INcORRfcTLY STORED 

05101 

703304 


DBk 



05102 

703302 


CAF 



05103 

100223 


CHAIN 



05104 

605062 


JMP 

T 165 + 5 

/REPEAT TEST. 

05105 

100604 

AT4B 

ERROR 


/API FAILED TO BREAK 

05106 

605101 


JMP 

. -5 


05107 

705504 

A T 4 W 

ISA 


/TEST WORDS 

05110 

740000 


NOP 



05111 

7 40000 


NOP 



05112 

740000 


NOP 





page 


bl 

F Y Ml 5 




05113 

626005 


JMP« 

6005 

05114 

0 0 s L 0 5 


A T 4R 




/Test 

ThaT aP I 

CAN rPEaK 

05115 

000166 

T 1 6 6 

166 


05116 

0051*=; 


T167 


05117 

1 00543 


CKaP I 


05120 

100533 


TF6 


05121 

100336 


STFN 


0512? 

10031 1 


MOVE 


05123 

005147 


ATRW 


051 24 

0 6 /' 0 0 0 


L0CF6 


05125 

77777 ? 


-6 


05126 

?0S3?5 


lac 

(JmS AT5A 

05127 

040040 


DAO 

L40 

05130 

145133 


DZM 

AT5A 

05131 

205320 


LAO 

( K404K 

0513? 

620106 


JMP* 

F6L0C 

05133 

000000 

AT5A 

0 


05134 

205133 


LAC 

AT5A 

05135 

50521 5 


AND 

( K70K 

05136 

545222 


SAD 

( K60K 

05 I 37 

74 I 000 


SKP 


05140 

100604 


ERRORa 


05141 

703304 


DBk 


05142 

703302 


CAF 


05143 

100223 


CHAIN 


05144 

605122 


JMP 

TI 66+5 

05145 

100604 

aT56 

ERROR 


05146 

605141 


JMP 

. -5 

05147 

705504 

AT5W 

ISA 


05150 

740000 


NOP 


05151 

740000 


NOP 


0515? 

740000 


NOP 


05153 

626005 


JMP* 

6005 

05154 

005145 


AT5B 




/Test 

THaT API 

can break 

05155 

000167 

Ti67 

167 


05156 

777777 


777777 


05157 

100543 


CKAPI 


05160 

100537 


TF7 


05161 

100336 


STFN 


05162 

100311 


MOVE 


05163 

005207 


AT6W 


05164 

076000 


L0CF7 


05165 

777772 


-6 


05166 

205326 


LAC 

(JmS AT6A 

05167 

040040 


DAC 

L40 

05170 

145173 


DzM 

AT6A 

05171 

205320 


LAO 

(K404K 

0517? 

620107 


JMP« 

F7L0C 

05173 

000000 

AT6A 

0 


05174 

205173 


LAC 

AT6A 

05175 

505215 


and 

( K70K 

05176 

545215 


SAD 

( K70K 

05 I 77 

74 I 000 


SKP 



FPO'-' field 6 and SToPfS C^RPEtTLY 


/RUN IF API aVaILARLF 
/RUN IF FIELD 6 aVaILARLF 
/SET fields 

/TEST WORDS TO FIELD 6 


/Break hanBl^R to losad 
/ZERO AT <5 A 

/GET API BREAK REQUEST DaTA. 

/GO TO field 6 

/GET JMS INFO 
/ISOLATE AC3-5 
/AC3-5= 

/YES. 

/NO. error, pc 3-5 incorrectly STORED- 


/REPEAT TEST 

/API FAILED TO break 

/TEST WORDS 


FROM field 7 AND STORES PC3-5 CORRECTLY. 


/RUN iF API AVAILABLE 

/Run if field i available 

/SET FIELDS 

/TEST WORDS TO FIELD 7 


/Break hanOlFr to loC40 

/ZERO AT6A 

/GET API BREAK REQUEST DaTa 
/GO TO FIELD 7 

/GET JMS INEO 
/ISOLATE AC 3-5 
/AC3-5= 11? 

/YES. 
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EXM15 


O520pi 

10060^ 


ERRORa 


05201 

703304 


OBX 


05202 

703302 


CAe 


05203 

100223 


CHA I N 


05204 

605162 


JMP 

T167+5 

05205 

100604 

AT6B 

ERROR 


05206 

605201 


JMP 

. -5 

05207 

705504 

AT6W 

ISA 


05210 

740000 


NOP 


05211 

7 40000 


NOP 


05212 

740000 


NOP 


05213 

626005 


JMP, 

6005 

05214 

005205 


AT6B 



100604 

ERROR 

=JMS err 



100604 

errora=jms err 



600240 

SKIPS 

JMP CHAINA 



100223 

CHAIN 

l=JMS CHAINN 



000000 


. END 



05215 

070000 




05216 

600616 

*L 



05217 

000001 




05220 

000207 

*L 



05221 

000 0 (o 7 

*L 



05222 

060000 

*L 



05223 

000006 

*L 



05224 

050000 

*L 



05225 

000005 

*L 



05226 

030000 

*L 



05227 

000004 

*1 



05230 

020000 

*L 



05231 

000003 

*L 



05232 

000002 

*L 



05233 

010000 

*L 



05234 

004000 

*L 



05235 

377777 

*L 



05236 

777777 

*L 



05237 

000077 

*L 



05240 

000045 

*L 



05241 

000043 

*L 



05242 

777740 

*L 



05243 

000100 

*L 



05244 

000240 

*L 



05245 

000700 

*L 



05246 

606060 

»L 



05247 

206000 




05250 

006000 

*L 



05251 

226001 

*L 



05252 

002152 




05253 

002173 




05254 

002214 

»L 



05255 

002235 




05256 

002256 




05257 

002277 

«L 



05260 

002320 

»L 



05261 

040000 

*L 



/NO. error. pc 3-^ INCOPRt^CTLY STORED 


/REPEAT TEST. 

/API EAILEO TO BREAK 

/TEST WORDS 
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05?6? 

003204 

05263 

003226 

05264 

003260 

05265 

003272 

05266 

00331 4 

05267 

003336 

05270 

003360 

05271 

603405 

05272 

603430 

05273 

603463 

05274 

603476 

05275 

603521 

05276 

603544 

05277 

603567 

05300 

603607 

05301 

603642 

05302 

603675 

05303 

603730 

05304 

603763 

05305 

604016 

05306 

604051 

05307 

216000 

05310 

004246 

05311 

004270 

05312 

004312 

05313 

004334 

05314 

004356 

05315 

004400 

05316 

004422 

05317 

104673 

05320 

404000 

05321 

104733 

05322 

104773 

05323 

105033 

05324 

105073 

05325 

105133 

05326 

105173 

Si2e 

=05327 


^ 1 . 

*L 

»L 

* L 
«L 
*L 
*L 

«L 

«L 

«L 

*L 

»L 

«L 

»L 

*L 

*L 

«L 

*L 

*L 

*L 

*L 

*L 

*L 

*L 

•L 

*L 

*L 

*L 

*L 

*L 

♦ L 
*L 
*L 
*L 

NO error lines 
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AACA 

01040 

aloc 

01033 

artn 

01045 

ASCT 

0101 5 

AT0A 

04673 

AT0B 

04705 

AT0W 

04707 

ATIA 

04733 

ATIB 

04745 

A T 1 W 

04747 

AT2A 

04773 

AT28 

05005 

AT2W 

05007 

AT3A 

05033 

AT3B 

05045 

AT3W 

05047 

AT4A 

05073 

AT4B 

05105 

AT4W 

05107 

AT5A 

05133 

AT5B 

05145 

AT5W 

05147 

AT6A 

05173 

AT6B 

05205 

AT6W 

05207 

calerr 

00616 

CALMSG 

01025 

CAPI 

0054 3 

CEHLT 

00601 

CEMSG 

01031 

CETYP 

00627 

CF2 

00513 

cr3 

00517 

CF4 

00523 

CF5 

00527 

CF6 

00533 

CF7 

00537 

CHAIN 

100223 

CHAINA 

00240 

CHA INN 

00223 

CHLT 

00576 

ckapi 

100543 

CLOF 

700004 

CLON 

700044 

CLSF 

700001 

CLX 

735000 

CNV 

00767 

CSCOP 

00651 

CTRA 

00153 

CTRB 

00154 

CURTST 

00151 

D1 

01016 

02 

01017 

03 

01020 

EAC 

00155 
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FBA 707764 
FEM 707702 
ELOC 00156 
FPA 707762 
FRR 00604 
FRRMSG 01021 
ERROR 100604 
ERRORA 100604 
FXBA 707761 
FAODR 00333 
FLAG 00746 
FORWD 00254 
F0LOC 00100 
■F0L0 00117 
F0L10 00127 
F0L20 00137 
FlLOC 00101 
F1L0 00120 
Fill 00110 
F1L10 00130 
F1L20 00140 
F2L0C 00102 
F2L0 00121 
F2L1 00111 
F2L10 00131 
F2L20 00141 
F3L0C 00103 
F3L0 00122 
F3L1 00112 
F3L10 00132 
F3L20 00142 
F4L0C 00104 
F4L0 00123 
F4L1 00113 
F4L10 00133 
F4L20 00143 
F5L0C 00105 
F5L0 00124 
F5L1 00114 
F5L10 00134 
F5L20 00144 
F6L0C 00106 
F6L0 00125 
F6L1 00115 
F6L10 00135 
F6L20 00145 
F7L0C 00107 
F7L0 00126 
F7L1 00116 
F7L10 00136 
F7L20 00146 
GETRDy 00213 
KRB 700312 
KSF 700301 
KSTART 00147 
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EXM15 


K10K 

010000 

K20K 

020000 

K30K 

030000 

K40K 

040000 

K404K 

404000 

K50K 

050000 

K60K 

060000 

K70K 

070000 

LEM 

707704 

LOG 

006000 

LOCF0 

006000 

LOCFl 

016000 

L0CF2 

026000 

L0CF3 

036000 

L0CF4 

046000 

L0CF5 

056000 

L0CF6 

066000 

L0CF7 

076000 

L0 

000000 

L0F0 

000000 

L0F1 

010000 

L0F2 

020000 

L0F3 

020000 

L0F4 

030000 

L0F5 

050000 

L0F6 

060000 

L0F7 

070000 

LI 

000001 

LlFi 

010001 

L1F2 

020001 

LIF3 

030001 

HF4 

040001 

L1F5 

050001 

L1F6 

060001 

LlF7 

070001 

L10 

000010 

L10F0 

000010 

L10F1 

010010 

L10F2 

020010 

L10F3 

030010 

L10F4 

040010 

L10F5 

050010 

L10F6 

060010 

L10F7 

070010 

L20 

000020 

L20F0 

000020 

L20F1 

010020 

L20F2 

020020 

L20F3 

030020 

L20F4 

040020 

L20F5 

050020 

L20F6 

060020 

L20F7 

070020 

L40 

000040 

L40F0 

000040 



EXM15 


Page ^7 

L40F1 P110040 
L40F? 020040 
L40F.'^ 030040 
L40F4 040040 
L40F5 050040 
L40F6 060040 
L40F7 070040 
MCTR 00335 
MEMERR 01050 
MOVE 100311 
MOVEA 00323 
MOVVE 00311 
NXTST 00150 
OCNV 00751 
PCF 700202 
PRINT 00727 
PRINTa 00740 
PRINTS 00742 
PRINTC 00744 
PSA 700204 
PSB 700244 
PSF 700201 
P0MSG 01101 
RCF 700102 
RRR 700112 
RSA 700104 
RS8 700144 
RSF 700101 
RTNNO 00177 
SASC 01014 
SBFNUM 00336 
seta 100301 
SETLOC 100270 
SKIP 600240 
START 00203 
STCTA 00301 
STCTR 00270 
STFLG 00557 
STFN 100336 
STFl 00426 
STF2 00417 
STF3 00410 
STF4 00401 
STF5 00372 
STF6 00363 
STF7 00354 
SWA 742030 
TAODR 00334 
TCF 700402 
TEMP 00152 
TEMQ 00747 
TEMR 00750 
TF2 100513 
TF3 100517 
TF4 100523 



tXM15 


PAGE 68 

TF5 102527 

102533 
TF7 100537 

TLS 700406 

TSCl 00664 

TSC2 00703 

TSF 700401 

TSTFX 00501 

TSTF? 00443 

TSTF3 00450 

TSTF4 00455 

TSTF5 00462 

TSTF6 00467 

TSTF7 00474 

TTOUT 00567 

TYP 00657 

TYPAT 00714 

type 100657 

TYPSP 00720 

T0 01162 

T1 01173 

T10 01303 

T100 03003 

T100A 03014 

T100W 03022 

T101 03027 

T101A 03040 

T101W 03046 

T102 03053 

T102A 03064 

T102W 03072 

T103 03077 

T103A 03110 

T103W 03116 

T104 03123 

T104A 03134 

T104W 03142 

T105 03147 

T105A 03160 

T105W 03166 

T106 03173 

T106A 03204 

T107 03214 

T107A 03226 

Til 01320 

T110 03236 

T110A 03250 

Till 03260 

TlllA 03272 

T112 03302 

T112A 03314 

T113 03324 

T113A 03336 

TH4 03346 

T114A 03360 
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T115 03370 
71154 03404 
T115P 03405 
T115W 03407 

7116 03412 
7116A 03427 
7116R 03430 
T116W 03432 

7117 03435 
7117A 03452 
7117R 03453 
T117W 03455 

712 01335 
T120 03460 
7 120 A 03475 
7120B 03476 
T120W 03500 
7121 03f«3 
7121 A 03'520 
7121B 03521 
T121W 03523 
T122 03526 
7 122 A 03543 
T122B 03544 
T122W 03546 
T123 03551 
T123A 03566 
T1238 03567 
T12'3W 03571 
T124 03574 
T124A 03607 
T124B 03616 
T124W 03620 
T125 03626 
T125A 03642 
T125B 03651 
T125W 03653 
T 126 meet 
7126A 03675 
T1268 03704 
T126W 03706 
7127 03714 
7127A 03730 
7127B 03737 
7127W 03741 

713 01352 

7130 03747 
7130A 03763 
7130B 03772 
7130W 03774 

7131 04002 
7131A 04016 
7131B 04025 
7131W 04027 

7132 04035 
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T132A 04051 
T13?B 04060 
T132W 04062 
T133 04070 
T134 04105 
T135 04123 
Tl36 04141 
T137 04157 
T14 01367 
T140 04175 
T141 04213 
Ti42 04231 
T142A 04244 
T142B 04246 
T142W 04250 
T143 04252 
T143A 04266 
T143B 04270 
T143W 04272 
T144 04274 
T144A 04310 
T144B 04312 
T144W 04314 
T145 04316 
T145A 04332 
T145B 04334 
T145W 04336 
T146 04340 
T146A 04354 
T146B 04356 
T146W 04360 
T147 04362 
T147A 04376 
T147B 04400 
T147W 04402 
T15 01404 
T150 04404 
T150A 04420 
T150B 04422 
T150W 04424 
T151 04426 
T152 04443 
T152A 04456 
T152W 04463 
T153 04466 
T153A 04502 
T153W 04507 
T154 04512 
T154A 04526 
T154W 04533 
T155 04536 
T155A 04552 
T155W 04557 
T156 04562 
T156A. 04576 



DAGt 


E V M 1 5 


1 56i" 

04603 

"157 

04606 

T 157A 

04622 

T 1 5 7 w 

04627 


014 21 

Ti6A 

014 31 

Ti6B 

01433 

Ti^W 

01435 

Tl60 

04632 

Tlft0A 

04 64 6 

Tl60W 

04653 

T161 

04656 

T162 

04715 

T163 

04755 

T164 

05015 

T165 

05055 

Tl66 

05115 

Tl67 

05155 

Tl7 

0 14 4 0 

T17A 

01451 

T17B 

01453 

T17W 

01455 

T2 

01205 

T20 

01460 

T2f^A 

01471 

T20B 

014 73 

T2?W 

01475 

T21 

01500 

T21A 

01511 

T21B 

01513 

T21W 

01515 

T22 

01520 

T22A 

01531 

T22B 

01533 

T22H 

01535 

T23 

01540 

T23A 

01551 

T23B 

01553 

T2i^W 

01555 

T24 

01560 

T24A 

01571 

T24B 

01573 

T24W 

01575 

T25 

01600 

T26 

01614 

T27 

01631 

T3 

01217 

T30 

01646 

T31 

01663 

T32 

01700 

T33 

01715 

T34 

01732 

T34W 

01752 

T35 

01754 

T35W 

01775 



exmi 5 


PAGE" 

T36 

T36W 

T37 

T37W 

T4 

T40 

T4P1W 

T41 

T41W 

T42 

T4?W 

T43 

T43A 

T43B 

T43W 

T44 

T44A 

T44B 

T44W 

T45 

T45A 

T45B 

T45W 

T46 

T46A 

T46B 

T46W 

T47 

T47A 

T47B 

T47W 

T5 

T50 

T50A 

T50B 

T50W 

T51 

T51A 

T518 

T51W 

T52 

T52A 

T52W 

T53 

T53A 

T53W 

T54 

T54A 

T54W 

T55 

T55A 

T55W 

T56 

T56A 

T56W 


72 


01777 

0 ? 0?0 

02022 

02043 

01231 

02045 

02066 

02070 

02111 

02113 

02134 

02136 

02150 

02152 

02154 

02156 

02171 

02173 

02175 

02177 

02212 

02214 

02216 

02220 

02233 

02235 

02237 

02241 

02254 

02256 

02260 

01243 

02262 

02275 

02277 

02301 

02303 

02316 

02320 

02322 

02324 

02334 

02336 

02340 

02351 

02353 

02355 

02366 

02370 

02372 

02403 

02405 

02407 

02420 

02422 



E X M 1 5 
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T57 

02424 

T57A 

0 2 4 3 5 

T57.W 

02437 

T6 

01 255 

T6P! 

02441 


02452 

T60W 

02454 

T61 

02456 

T61A 

02466 

T61'W 

02470 

T62 

02473 

T6?A 

02504 

T6?W 

02506 

T63 

02511 

T63A 

02522 

T63W 

02524 

T64 

02527 

T64A 

02540 

T64W 

02542 

T65 

02545 

T65A 

02556 

T65W 

02560 

T66 

02563 

T66A 

02574 

T66W 

02576 

T67 

02601 

T67A 

02612 

T67.W 

02614 

T7 

01267 

T70 

02617 

T70A 

02627 

T70W 

02631 

T71 

02634 

T71A 

02645 

T71W 

02647 

T72 

02652 

T7?A 

02663 

T7?W 

02665 

T73 

02670 

Tv73A 

02701 

T73W 

02703 

T74 

02706 

T74A 

02717 

T74W 

02721 

T75 

02724 

T75A 

02735 

T75W 

02737 

T76 

02742 

T76A 

02753 

T76W 

02755 

T77 

02760 

T77A 

02770 

T77W 

02776 

WASC 

01013 

.EOT 

00000 
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EXM15 


L0 

000000 

LP1F0 

000000 

. EOT 

0 000 0 

LI 

000001 

Ll(^ 

000010 

L10F0 

000010 

L20 

000020 

L20F0 

000020 

L40 

000040 

L40F0 

000040 

F0LOC 

00100 

FlLOC 

00101 

r2L0C 

00102 

F3L0C 

00103 

r4L0C 

00104 

F5L0C 

00105 

F6L0C 

00106 

F7L0C 

00107 

Fill 

00110 

r2Ll 

00111 

F3L1 

00112 

F4L1 

00113 

F5L1 

00114 

F6L1 

00115 

F7L1 

00116 

F0L0 

00117 

F1L0 

00120 

F2L0 

00121 

F3L0 

00122 

F4L0 

00123 

F5L0 

00124 

F6L0 

00125 

F7L0 

00126 

F0L10 

00127 

F1L10 

00130 

F2L10 

00131 

F3L10 

00132 

F4L10 

00133 

F5L10 

00134 

F6L10 

00135 

F7L10 

00136 

F0L20 

00137 

F1L20 

00140 

F2L20 

00141 

F3L20 

00142 

F4L20 

00143 

F5L20 

00144 

F6L20 

00145 

F7L20 

00146 

KSTaRT 

00147 

nxtst 

00150 

GUPTST 

00151 

TEWP 

00152 

CTRA 

00153 

ctrb 

00154 
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FAC 

00155 

ELOC 

00156 

RTNNO 

00177 

start 

00203 

getroy 

00213 

CHA INN 

00223 

CHA INA 

00240 

FORwO 

00254 

STCTR 

00270 

stcta 

00301 

MOVVE 

00311 

MOVEA 

00323 

FADDR 

00333 

TADDR 

00334 

MCTR 

00335 

SBFNUM 

00336 

STF7 

00354 

STF6 

00’363 

STF5 

0037 2 

STF4 

00401 

STF3 

00410 

STF2 

00417 

STFl 

00426 

TSTF2 

00443 

TSTF3 

00450 

TSTF4 

00455 

TSTF5 

00462 

TSTF6 

00467 

TSTF7 

00474 

TSTFX 

00501 

CF2 

00513 

CF3 

00517 

CF4 

00523 

CF5 

00527 

CF6 

00533 

CF7 

00537 

CAPI 

00543 

STFLG 

00557 

TTOUT 

00567 

CHIT 

00576 

gehlt 

00601 

FRR 

00604 

CALERR 

00616 

CETYP 

00627 

CSCOP 

00651 

TYP 

00657 

TSCl 

00664 

TSC2 

00703 

typat 

00714 

TYPSP 

00720 

PRINT 

00727 

PR INTA 

00740 

printb 

00742 

prihtc 

00744 

FLAG 

00746 
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TEMQ 

TEMR 

OCNV 

CNV 

WASC 

SASC 

ASCT 

ni 

02 

03 

FRRmSG 

CALMSG 

OEMSG 

ALOC 

AACA 

ARTN 

MEMERR 

P0MSG 

T0 

T1 

T2 

T3 

T4 

T5 

T6 

T7 

T10 

Til 

T12 

T13 

T14 

T15 

T16 

T16A 

T16B 

T16W 

T17 

T17A 

T17B 

T17W 

T20 

T20A 

T20B 

T20W 

T21 

T21A 

T21B 

T21W 

T22 

T22A 

T22B 

T22W 

T23 

T23A 

T2^B 


00747 

0075f5 

00751 

00767 

01013 

01014 

01015 

01016 
01017 
01020 
01021 
01025 
01031 
01033 
01040 
01045 
01050 
01101 
01162 
01173 
01205 
01217 
01231 
01243 
01255 
01267 
01303 
01320 
01335 
01352 
01367 
01404 
01421 
01431 
01433 
01435 
01440 
01451 
01453 
01455 
01460 
01471 
01473 
01475 
01500 
01511 
01513 
01515 
01520 
01531 
01533 
01535 
01540 
01551 
01553 
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T23W 

01555 

T24 

015^0 

T24A 

01571 

T24B 

01573 

T24W 

01575 

T25 

01600 

T2^^ 

01614 

T27 

01631 

T3« 

01646 

T31 

0166 3 

T32 

01700 

T33 

01715 

T34 

01732 

T34W 

01752 

T35 

01754 

T35W 

01775 

T36 

01777 

T36W 

02‘‘020 

T37 

0?022 

T37W 

02043 

T4 0 

02045 

T40W 

02066 

T 4 1 

02070 

T41W 

02111 

T42 

02113 

T4 2W 

02134 

T4 3 

02136 

T4 3A 

02150 

T438 

02152 

T43W 

02154 

T44 

02156 

T44A 

02171 

T44B 

02173 

T44W 

02175 

T45 

02177 

T45A 

02212 

T45B 

02214 

T45W 

02216 

T46 

02220 

T46A 

02233 

T46B 

02235 

T4«W 

02237 

T47 

02241 

T47A 

02254 

T47B 

02256 

T47W 

02260 

T50 

02262 

T50A 

02275 

T50B 

02277 

T50W 

02301 

T51 

02303 

T51A 

02316 

T51B 

02320 

T51W 

02322 

T52 

02324 
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T52A 02334 
T52W 02336 
T53 02340 
T53A 02351 
T53W 02353 
T54 02355 
T54A 02366 
T54W 02370 
T55 02372 
T55A 02403 
T55W 02405 
T56 02407 
T56A 02420 
T56W 02422 
T57 02424 
T57A 02435 
T57W 02437 
T60 02441 
T60A 02452 
T60W 02454 
T61 02456 
T61A 02466 
T61W 02470 
T62 02473 
T62A 02504 
T62W 02506 
T63 02511 
T63A 02522 
T63W 02524 
T64 02527 
T64A 02540 
T64W 02542 
T65 02545 
T65A 02556 
T65W 02560 
T66 02563 
T66A 02574 
T66W 02576 
T67 02601 
T67A 02612 
T67W 02614 
T70 02617 
T70A 02627 
T70W 02631 
T71 02634 
T71A 02645 
T71W 02647 
T72 02652 
T72A 02663 
T72W 02665 
T73 02670 
T73A 02701 
T73W 02703 
T74 02706 
T74A 02717 
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T74W 

02721 

T75 

02724 

T75A 

02735 

T75W 

02737 

T76 

02742 

T76A 

02753 

T76W 

02755 

T77 

02760 

T77A 

02770 

T77W 

07776 

T 10 PI 

03003 

T100A 

03014 

T100W 

03022 

T 101 

03027 

Tl01 A 

03040 

Ti 0 iW 

03046 

T102 

03053 

T 102 A 

03064 

T 102 W 

03072 

T 103 

03077 

T 103 A 

03110 

T 103 W 

03116 

T 104 

03123 

T104A 

03134 

T104W 

03142 

TI 05 

03147 

T105A 

03160 

T105W 

03166 

T106 

03173 

T106A 

03204 

T107 

03214 

T107A 

03226 

T110 

03236 

T110A 

03250 

Till 

03260 

TlllA 

03272 

T112 

03302 

T112A 

03314 

T113 

03324 

T113A 

03336 

T114 

03346 

T114A 

03360 

T115 

03370 

T115A 

03404 

T115R 

03405 

T115W 

03407 

T116 

03412 

T116A 

03427 

T116B 

03430 

TII 6 W 

03432 

T117 

03435 

T117A 

03452 

T117R 

03453 

T117W 

03455 

T120 

03460 
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T120A 03475 
Tl?0B 03476 
T120W 03500 
T121 03503 
T121A 03520 
Tl21fi 03521 
T121W 03523 
T122 03526 
T122A 03543 
T122B 03544 
T122W 03546 
T123 03551 
T123A 03566 
T123B 03567 
T123W 03571 
T124 03574 
T124A 03607 
T124B 03616 
T124W 03620 
T125 03626 
T125A 03642 
T125B 03651 
T125W 03653 
T126 03661 
T126A 03675 
Tl26fl 03704 
T126W 03706 
T127 03714 
T127A 03730 
T127B 03737 
T127W 03741 
T130 03747 
T130A 03763 
T130B 03772 
T130W 03774 
T131 04002 
T131A 04016 
T131B 04025 
T131W 04027 
T132 04035 
T132A 04051 
T132B 04060 
T132W 04062 
T133 04070 
T134 04105 
T135 04123 
T136 04141 
T137 04157 
T140 04175 
T141 04213 
T142 04231 
T142A 04244 
T142B 04246 
T142W 04250 
T143 04252 
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T143A 04266 
T143R 04270 
T143W 04272 
T144 04274 
T144A 04310 
T144B 04312 
T144W 04314 
T145 04316 
T145A 04332 
T145B 04334 
Tl45ii^ 04336 
T146 . 04340 
T146A 04354 
T146B 04356 
T146W 04360 
T147 04362 
T147A 04376 
T1478 04'4«0 
T147W 04402 
T150 04404 
T150A 04420 
T150B 04422 
T150W 04424 
T151 04426 
T152 04443 
T152A 04456 
T152W 04463 
T153 04466 
T153A 04502 
T153W 04507 
T154 04512 
T154A 04526 
T154W 04533 
T155 04536 
T155A 04552 
T155W 04557 
T156 04562 
T156A 04576 
T156W 04603 
T157 04606 
T157A 04622 
T157W 04627 
T160 04632 
T160A 04646 
T160W 04653 
T161 04656 
AT0A 04673 
AT0B 04705 
AT0W 04707 
T162 04715 
ATIA 04733 
ATlB 04745 
ATlW 04747 
T163 04755 
AT2A 04773 
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AT2B 05005 
AT2W 05007 
T164 05015 
AT3A 05033 
AT3B 05045 
AT3W 05047 
T165 05055 
AT4A 05073 
AT4B 05105 
AT4W 05107 
T166 05115 
AT5A 05133 
At5B 05145 
AT5W 05147 
T167 05155 
AT6A 05173 
AT6B 05205 
AT6W 05207 
LOG 006000 
LaCF0 006000 
K10K 010000 
L0F1 010000 
LlFl 010001 
L10F1 010010 
L20F1 010020 
L40F1 010040 
LOCFl 016000 
K20K 020000 
L0F2 020000 
L0F3 020000 
L1F2 020001 
L10F2 020010 
L20F2 020020 
L40F2 020040 
L0CF2 026000 
K30K 030000 
L0F4 030000 
L1F3 030001 
L10F3 030010 
L20F3 030020 
L40F3 030040 
L0CF3 036000 
K40K 040000 
L1F4 040001 
L10F4 040010 
L20F4 040020 
L40F4 040040 
L0CF4 046000 
K50K 050000 
L0F5 050000 
L1F5 050001 
L10F5 050010 
L20F5 050020 
L40F5 050040 
L0CF5 056000 
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K60K 

L0F6 

L1F6 

L10F6 

L20F6 

L40F6 

L0CF6 

K70K 

L0F7 

L1F7 

L10F7 

L20F7 

L40F7 

L0CF7 

CHAIN 

SETLOC 

seta 

MOVE 

STFN 

TF2 

TF3 

TF4 

TF5 

TF6 

TF7 

CKAPI 

ERROR 

ERRORA 

TYPE 

K404K 

SKIP 

CLSF 

CLOF 

CLON 

RSF 

RCF 

RSA 

RRB 

RSR 

PSF 

PCF 

PSA 

PSB 

KSF 

KRB 

TSF 

TCF 

TLS 

EEM 

LEM 

EXBA 

EpA 

EBA 

CLX 

SwA 


060000 
0 6^0 000 
060001 
060010 
060020 
060040 
066000 
070000 
070000 
070001 
070010 
070020 
070040 
076000 
100223 
100270 
100301 
100311 
100336 
100513 
100517 
100523 
100527 
100533 
100537 
100543 
100604 
100604 
100657 
404000 
600240 
700001 
700004 
700044 
700101 
700102 
700104 
700112 
700144 
700201 
700202 
700204 
700244 
700301 
700312 
700401 
700402 
700406 
707702 
707704 
707761 
707762 
707764 
735000 
742030 



MAINDEC EVALUATION REQUEST 


After sufficient familiarization with the operation and documentation of this MAINDEC, 
please indicate your assessment of the following areas and return this form to Digital Equipment Cor- 
poration. 


IDENTIFICATION : MAINDEC NO Program Title 

USAGE : Used by: Field Service Production | | Other 

Frequency of Usage: Daily | | Weekly | | Monthly | | 

SUGGESTIONS FOR IMPROVEMENT 

1. Are the program loading and operating instructions: clear?! j, incomplete?! 1, difficult to 
follow?Q 

2, Do the error reports and program documentation provide sufficient diagnostic information. 

in al I cases ? □ , in most cases? Q - very few cases Suggestions for improvement: 


□ 


3. Is the program effective in isolating malfunctions: in all cases , in most cases? 

in very few cases ? [ Would additional Scope loops or Switch Register control be helpful ? 
Suggestions for improvement: 


4. 


Does the program ever fail to detect malfunctions exposed by other software?. 
Were Margins used? Please describe malfunction in detail: 


5. Does the program ever report non-existant malfunctions? 

Please indicate erroneous report and any pertinent operating conditions: 


6. Does this MAINDEC ever expose malfunctions in the Central Processor or other peripheral units not 

detected by the appropriate MAINDEC? 

Please describe malfunction and MAINDEC(S) used: 


7. Does the document provide a general understanding of the functional programming requirements of 
the system? GoodQH , Fairj^, None[~~~] . Would a general description of programming re- 
quirements increaseThe effectiveness of thisMAINDEC ? 


Remarks: 




Fold Here 


Do Not Tear - Fold Here and Staple 


FIRST CLASS 
PERMIT NO. 33 
MAYNARD, MASS. 


BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 


Postage will be paid by: 




Digital Equipment Corporation 
Diagnostic Programming Group 
146 Main Street, Building 12 
Maynard, Massachusetts 01754 




